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1.0 


CONTENTS 


ABSTRACT 

REQUIREMENTS 

EQUIPMENT 

STORAGE 

PRELIMINARY PROGRAMS 
LOADING PROCEDURE 
STARTING PROCEDURE 
CONTROL SWITCH SETTINGS 
STARTING ADDRESS 

PROGRAM AND/OR OPERATOR ACTION 
OPERATING PROCEDURE 
OPERATION SWITCH SETTINGS 
SUBROUTINE ABSTRACT 
ERRORS 

RESTRICTIONS 
MISCELLANEOUS 

EXECUTION TIME 

STACK POINTER 

ERROR INFORMATION 
NON-STANDARD VECTOR AND REGISTER ADDRESSES 
PROGRAM DESCRIPTION 


ABSTRACT 


THIS PROGRAM TESTS BOTH THE ADDRESSING CAPHEILITY 
GND THE DATA RELIABILITY OF THE OF THE RPIIC AND THE 


EO1 
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109 RPO3. THE PROGRAM CONSIST OF SEVEN TESTS ANY ONE OF 
tt OBEN E RTS PE EATER Plus tHe Beemmror fo°Berine tet 
f PARAMETERS. 

il 

i 2.0 REQUIREMENTS 

il 

1 2.1 EQUIPMENT 


PDP11 STANDARD FAMILY PROCESSOR 
RP11C DISK PACK CONTROLLER WITH UP TO EIGHT RFO3 


DRIVES 
ASR33 OR EQUIVALENT. 


2.2 STORAGE 
8K OF STORAGE IS REGUIRED TO RUN THIS PROGRAM. 


Es 2.3 PRELIMINARY PROGRAMS 
2 DZRPA RP1IC DISKLESS DIAGNOSTIC 

39 

40 

4 3.0 LOADING PRODEDURE 

43 USE STANDARD PROCEDURE FOR ABS TAPES 

45 

-e 

7 4.0 STARTING PROCEDURE 

43 

eo 

¥ 4.1 CONTROL SWITCH SETTINGS 

oT -4 

163 SEE S.1.1 (ALL SWITCHES DOWN FOR WORST CASE 
155 TESTING-UNITO). 

Ee 

15? 

1Ee 

153 4.2 STARTING ADDRESS 

te: THE PROGRAM MUST ALWAYS BE STARTED AT 200. 
oct 

i€2 

igs 


Ol 
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4.3 PROGRAM AND/OR OPERATOR ACTION 
1. LOAD PROGRAM INTO MEMORY USING ABS LOADER. 
2. LOAD ADDRESS 200. 
3. SET SWITCHES. ALL DOWN FOR WORST CASE-UNIT O. 
4. PRESS START. 


ob 
ao 
ul 
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PROGRAM NAME AND A SUMMARIZED SWITCH TABLE 
Is TYPED AFTER INITAL rae OF PROGRAM. 
IF USING MEMORY re ON A SYSTEM WITH MORE 
THEN Y ALL OF THE L ARE MOVED 
FROM THE ~ yaaa | (28K MAXIMUM) CORE LOCATION TO 
INSIDE 8K. RELOAD THE LOADERS STARTING 
ADORESS IS GIVEN AFTER THE LOADERS ARE 
RELOCATED. 


S. THE PROGRAM WILL LOOP AND TYPE PASS COUNT. 
&. WHILE IN Med 12 (DATA REL JAGTL ITY} THE DISPLAY 


WILL CONTAIN THE NUMBER OF THE PATTERN CURRENTLY 
{HSE IN SROER TO SHOW THE PROGRESS OF THE 


OPERATING PROCEDURES 


uw 
© 


5.1 OPERATIONAL SWITCH SETTINGS 
AT SA evo ALL SWITCHES DOWN IS WORST CASE TESTING 


200 FOR UNIT 6. PASS COUNT WILL SE TYPED OUT AT THE 
201. COMPLETION OF A PASS. 

202 

202 

204 

20s 

soe 5.1.1 SWITCH SETTINGS ARE: 

208 SW<1S>=1....HALT ON ERROR 

203 


_ 


SW<l4>=1....LOOP ON ERROR 
SW<i3>=1.... INHIBIT PRINTOUT 

SW 12>=1.... INHIBIT BACKGROUND TEST 
SW<1l>=1....RING BELL ON ERROR 
SW<10>=1....LOOP ON TEST 
SW<09>=1.... INHIBIT DATA COMPARISON 
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SW<O8>=1.... 


SW<O7>=1.... 


SW<O06>=1.... 
SW<0S> 


siihcutlsta aahiat 


SW<05>=0.... 


SwW< 04> 


SW<O4>-1... 


SW<O4>=0.... 


SW<O3>21.... 


SW<00>THRU S 


+ Wwre-O 


oe CONVERSATION MODE. 
F TEST a IS SELECTED USE ADDRESS 


a ey a IS SELECTED USE DATA 


INHIBIT a Ge TSEN watt AND READ 
DURING DATA TEST AND RANDOM TEST. 


INHIBIT USE OF MEMORY MANAGEMENT 


USED TO CONTROL HOW MANY COMPARE ERRORS 
WILL BE TYPED OUT AS A RESULT OF A READ 
OPERATION IN THE DATA TEST. 


CK FOR bP TO THREE COMPARE ERRORS 

WITHIN THE READ ER fhe TYPE ALL 

OPRIATE ERROR INFORMA FOR EACH 

4 I Me DISK OOISCOVERS AN 

ERROR rh Ent FINISH READING THE 
CURRENT SECT oR AND THEN STOP. SO IF 

VALID COMPARE ERROR 1S ENCOUNTERED AND 
ANNING 


Bu FER PROGR EY GO BEYOND THE AREA WHERE 
HE DISK TRANSFERRED DATA. IF THIS 
HAPPENS, THE RECEIVED DATA WILL BE 


CHECK FOR ony ONE COMPARE ERROR WITHIN 
THE READ BUFFER. 


USED TO CONTROL THE AMOUNT OF 
INFORMATION TYPED ON REREAD ATTEMPTS 
AFTER A READ FAILURE IN DATA TEST. 


aps 3 Ae RROR_INFORMATION ON 
EA TEMPT 


TYPE THE ERROR cae BSS ON THE FIRST 
READ ERROR ONLY. AFTER THE ERROR GOES 
AWAY OR IS UNRECOVERABLE, THE NUMBER OF 

REREADS IS THEN TYPED. 


RUN TEST SELECTED BY SWITCH POSITIONS 
SWO THRU SWe 


W< 92> TEST SELECTED 
AD 


TEST 
- WRITE CHECK TEST 
TEST4 - MEMORY ADDRESS TEST 
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277 S TESTS - DATA RELIABILITY 
fe teel§ = BeNeR" FAY TEST 
280 
28) NOTE 
283 T D 10 ECT _AN. INDIVIDUAL 
eB Est BPso? EPH PED ds LBop SN TEST. 
2g 
297 
28 5.2 SUBROUTINE ABSTRACTS 
290 
291 
232 5.2.1 SCOPE 
TH I S PLACE AT THE END OF EACH 

sd¢ sUteSt AND. MD "Baov! Nes meiL ty 16 0 LOOP ON AN 
538 Ts SET. THES Fos FERC IS tdi BY “Te SCOPE RU TINE 
Sag iW FL LOOP BAC ROAND RE PERT T IONS C “ 
e Hae eR OE ELDER GIN, 

1 MOVED INTO LOCA AD. ONCE THE PROGRAM STARTS 
302 LOOPING ON AN PRROR, Nir WILL CONTINUE LOOPING EVEN 
353 THOUGH THE ER ROR Me R MAY BE INTERMITTENT. TO GO OUT OF 

m1 THE LOOP RESET 
305 
306 
307 
308 5.2.2 HLT 
310 THIS ROUTINE IS ENTERED UPON DETECTION OF AN ERROR. 
31 L TYPE THE PC OF THE ERROR AND ADDITIONAL 
312 ERROR INFORMATION. THIS ROUTINE TEST FOR HALT ON 
313 ERROR. INHIBIT TYPEOUTS. AND RING THE BELL. IT ALSO 
314 SETS tHE ERROR FLAG USED BY THE SCOPE ROUTINE. 
316 
317 
218 
313 5.2.3 BACKGROUND TEST 
321 THIS TEST IS ENTERED By THE PROGRAM WHILE WAITTING 
2 FOR AN IN NT!"ARUP 1 OES A ERIES 0 NEGATE BYTE 
32 AND ROTATE BYTE LEFT NS TASK ‘PROVIE WORSE 
224 CASE NPR TIMING. AND BUS NOISE AND I ILL TIMEOUT 
325 iF TNT ERRUP Parte TO OCCUR. THE Back OUND TEST 
326 MAY BE INHIBITED BY SETTING SW<l2> WHICH CAUSE THE 
27 PROGRAM TO DO A WAIT INSTRUCTION. 
329 
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6.0 


6.1 


O1 


A”".+2" - “HALT” SEQUENCE IS REPEATED FROM 0-776 10 


RLS BIA BRRERSTERL REF an REET AMEEPES™ 


ERRORS 


WHEN ERRORS ARE _ ENCOUNTERED THE ADDRESS OF THE 
BS arb ict a ret ay REFER 16 
Resim Nc bps "Ye Onn ION te 'P ols 


OF THE ERROR IN” THE SEMEN ve 
WHEN OPRIATE, ADDITIONAL INFORMATION IS TYPED 
OUT SUCH oH AS SPE XPeetED AND RE 


CEIVED RESULTS OF AN 
OPERATION. ALL INFORMATION IS IN OCTA 
ERROR MESSAGE FORMAT 
1. PCs PC OF FAILURE 
STATUS ERROR 
RPDS= CONTENTS OF RPDS 
RPER= CONTENTS OF RPER 
RPCS= CONTENTS OF RPCS 
RPCA= CONTENT OF RPCA 
ccas KONTENTS. OF. SUCA 
PUL TNDERS et ROER _pookess OF 
HEAD= HERO. ADDRESS OF |THE 
SECTOR= SECTOR ADDRESS OF 
THE ERR 
READ COUNTER A SPECIAL {COUNTER 
SED IN DATA TEST 


U 
AND _ RAN Noon TEST. 
INDICATES THE NUMBER 


OF READS OF THAT 


LOCK. = FIRST 
READ. _IF LOOPING ON 
ERROR THE FIRST READ 
COUNTER ONLY IS 
VALID. 
2. PC= PC OF FAILURE 
COMPARE ERROR 
EXPECTED= DATA EXPECTED 
RECEIVED= ATA RECEIVED 
CYLINDER= YLINDER ADORESS OF 
THE ERROR 
HEAD= HEAD ADDRESS OF THE 


JOl 
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8.0 


8.1 


8.2 


8.3 


ERROR 
SECTOR= THE EFQ ADDRESS OF 
WORD COUNT INTO SECTOR= OFance INTO 
COUNT 
READ NO. NDIC re tice READ 
ATTEMPT IS IN 
PROGRESS. 
3. TOTAL REREADS ON ERROR= caren ome hates oe 


Sic HLS Eine 


RESTRICTIONS 
TEST 7 (POWER FAIL) WILL BE EXECUTED ONLY IF 


SELECTED BY THE SWITCHES. IT WILL HALT AT 
COMPLETION. 


MISCELLANEOUS 


EXECUTION TIME 


boa PASS _ ate Hy io OUT AT THE END OF EACH 
PASS THRU T Our eS A, * TIME eg ol MN 


ET WHEN " TEST (DAT 
RELIABILITY) ITS PROGRESS CAN BE MONITORED BY 
LOOKING AT THE DISPLAY. IT WILL CONTAIN THE NUMBER 
OF THE PATTERN CURRENTLY IN USE. 


STACK POINTER 
STACK IS INITIALLY SET TO S00. 


ERROR INFORMATION 


IF IT IS DESIRED % HAVE THE ERROR _INFORMATION 
QUTPUTTED TO THE PUNCH INSTEAD OF THE TELETYPE 
CHANGE THE FOLLOWING THREE LOCATIONS. 


KO1 
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8.4 


9.0 


9.3 


Ee 


NON-STANDARD VECTOR AND REGISTER ADDRESSES 


IF IT IS DESIRED TO CHANGE THE VECTOR OR REGISTER 
ADDRESSES IT CAN BE_ ACCOMPLISHED BY CHANGING THE 
CONTENTS OF THE FOLLOWING LOCATIONS: 


LOCATION FROM TO 
VECTOR 2s4 Pah INTERUPT TRAP 
STATUS 2S6 NEW INTERUPT LOCATION 
RPCS 176714 NEW DISK CONTROL ADDRESS 
RPCS1 176715 NEW UPPER BYTE OF CONTROL 
RPWC 176716 NEM BORD COUNT REGISTER 
bREge 
RPBA 176720 NEW CURRENT ADDRESS REGISTER 
RPCA 176722 INDER ADDRESS 
REGISTER ADDRESS 
RPDA 176724 N He ADDRESS REGISTER 
RPDAL 176725 on co ADDRESS REGISTER 
RPER 176712 NEW ERROR REGISTER ADDRESS 
RPDS 176710 WeH aperice STATUS REGISTER 
SUCA 176734 NEW SELECTED UNIT CYLINDER 


ADDRESS REGISTER ADDRESS 


PROGRAM DISCRIPTION 


ADDRESS TEST 0 


N TyIs TEST THE PRO pen EEKS FROM 0 TO N wwe “ 
1 NStaRTS 0 | FEN IRCREMENTS, TO 1 

THRU bes. DONE UNDERWAY is 
TESTE UNIT REA oY. he I ED SOUT ATTENTION 
INTERRUPT AND THE a an ARE TESTED, AND THE 


CONTENTS OF SUCA ARE CHECK 
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9.2 


9.3 


9.4 


ADDRESS TEST 1 


Hack. en free Bo Te OF Rice eeevoR “is “THE 
CTR eAABPERE ancy "Ete UE 


EXAM tNeD. "10 ¢E THAT THEY UPDATED CORRECTLY. AFTER 
WRITING THE Ph IRE PACK, THE DATA IS READ BACK TEN 
SECTORS AT A TIME AND VERIEIE IED. IF THE FIRST WORD 
OF A SECTOR DOES NOT COMPARE THE WRONG CYLINDER WAS 

PROBABLY SELECTED. AN ERROR ON THE FIRST WORD IS 
INDICATED BY TYPING “CYL” AFTER THE ERRING ae IF 
ANY OTHER WORD FAILS THE WRONG HEAD OR SECTOR WAS 
PROBABLY SELECTED. IN THIS CASE THE RIGHT HALF OF 
THE DATA TYPED EQUALS THE SECTOR RA SRESS AND THE 
LEFT HALF EQUALS THE TRACK ADDRESS. 


ADDRESS TEST 2 
WRITE THE FIRST WORD OF EACH CYLINDER. WITH THE 
CYLIND! T E 62 QO. THEN 


AND GO RO. 
POSITION OF THE HEAD BY READING THE FIRST WORD OF 
is OO eet AND COMPARING IT WITH THE SELECTED 


WRITECHECK TEST 


THIS TEST VERIFIES THE WRITE CHECK LOGIC AND THE 
ABILITY OF THE HARDWARE TO FILL THE REMAINDER OF A 
SECTOR WITH ZEROS WHEN A PARTIAL SECTOR IS WRITTEN. 

IN THE WRITE CHECK PORTION A FLOATING ONE AND A 


FLOATING ZERO PATTERN ARE USED TO TEST THE WRITE 
CHECK COMPARE LOGIC. THE PATTERN IS WRITTEN AND 
WRITE CHECKED EXPECTING NO ERROR S. THE BUFFER IS 
THEN CLEARED AND THE DATA IS WRITE CHECKED AGAIN. 
aN ERROR IS EXPECTED. AFTER WRITE CHECK IS TESTED 

EN WITH ALL ONES AND THEN A TWO 
* THE ENTIRE SECTOR IS READ 
AND VERIFIED. THE FIRST TWO WORDS SHOULD BE ONES 
AND THE REMAINDER SHOULD BE ZERO. 


MEMORY TEST 


RUG AEA TPOTLATY JEST ngeyyt e7cione) ze-een-77 nsw ence 11 


S57 


9.6 


THIS TEST CONSISTS OF TWO SEGMENTS. THE FIRST 
SEGMENT TESTS THE ACCESSIBILITY OF MEMORY. dl 
MEMORY MANAGEME S NOT A OR 


N 
MANAGEMENT IS  DESELECTED, OR 
CONTAINS 8K WITH MEMORY MANAGEMENT THEN EACH 
OCATION FROM THE END OF T TO THE TOP 
ADDRESS. THIS DATA IS WRITTEN ON THE DISK. THE 
D AND THE DATA IS K 


FIED. TF so hEPORY. Oe Rone IS Fe a Aro 
Er ECTED WITH MORE 


THEN 1Ffen WR ary a chee at Se hi 
asin HLTROE Date SL IBN Tec frk es 


HECKED. IN SEGMENT TWO, THE EXTENDED ADDRESS 
BTS ARE TESTED IF MEMORY MANAGEMENT IS AVAILABLE. 


DATA TEST 
DATA TEST VERIFIES THE DATA RELIABILITY OF THE DISK. 
THE SEQUENCE IS WRITE THE P WR 

AD IT 3 TIMES. IF gh<07>=0 THEN 8 A SEEK OF 128 OR 
G EATER CYLINDERS we RFORMED BET! 


ND READ. ERRORS T UR WITH T E 
ENABLED AD aut WRITE CHECK AS STATUS ERRORS OR 
DURING READ BUT ARE a ae og AFTER FIRST + ys 


pa ARE SEEK 
PROBABLY Bue i "HERDS * RA SEEK. THIS 

eee, ay PATTERNS DEFINED 

8 Leatrel DURING A READ 


TIONED. WITH EACH READ 
ERROR Ma HE READ " TRY N N NBER IS_ TYPED QUT ALONG WITH 
HE RROR INFORMATION. THIS WAY IT CAN BE 


DETERMINED IF AN ERROR RECOVERABLE OR 


ELE con al TOUR Meat 
COMPARED TO PROVIDE ION 


BORING The gee ee ¢ = OER 


THROUGH MEMORY AT 1K STEP THAT ALL OF MEMORY IS 
CHECKED WITH THE Data PATTERN. 


NUMBER DATA PATTERN NUMBER DATA PATTERN 
0 163126 ll 167356 


1 052525 le 156735 
e leSeSe2 13 135673 


ROAAC RELIABILE 
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9.7 


9.8 


' 9.9 


i nazar? 77 33) = 990000 
ne 

7 042104 

10 104210 


THE LENGTH OF all DATA TRANSFER IS ap es an 
T SIZE OF MEMORY AND IS INDICATED BY A TYPEOU 
eee BEGINNING OF THE PROGRAM, IF IN CONVERSATION 


RANDOM TEST 


IN THIS TEST RANDOM DATA oT 7O0(OCTAL) WORDS IS 
WRITTEN ON RANDOM SECT STOR INE ue THEN WRITE CHECKED 
AND READ 10 TIMES. ACCORDING TO SW<07> THERE COULD 
BE A RANDOM SEEK OF 128 OR GREATER CYLINDERS BETWEEN 
EACH WRITE AND READ. ERRORS OCCURING DURI 

BUT ARE RECOVER 


ISABL ING po K RE 
PROBA RUE 8 ¥IBRA BRATING HEADS AFTER A SEEK. THIS 
IS REPEATE SOO TIMES. THE READ RECOVERY TECHNIQUE 
IS THE SAME AS DESCRIBED UNDER DATA TEST(9.6). 


POWER FAIL TEST 

TESTS THE ABILITY OF iy | RP11C TO SENSE POWER 

FAILURE AND TO _ HO AS SOON AS THE 

age SR Nd TO TTORN OFF POWER, THE PROGRAM 
. & A A SECTOR FROM THE DISK. AFTER 

POUER IS RESTORED NOHE oe CHECKS THAT THE HEADS 


CYLINDER ZERO AND THAT THE CONTENTS OF MEMORY ~ 
RBOVE T HE PROGRAM HAS NOT BEEN AFFECTED BY THE POWER 


CONVERSATION MODE 
THERE ARE TWO CONVERSATION MODES AVAILABLE SELECTED 
BY (08>. IF TES R Q-e IS 


SELECTED IN 
SW<00-O2> THEN THE PROGRAM WILL SELECT THE ADDRESS 
TIO OW THE OPERATOR 


ADDRESSES 

ONTINUOUS SEEK OPERATIONS FROM ONE 8 THE Aas 
Sup Ye SELECTION DURING eR SAVERS A ION. IS 
FOR AD Akl TI DUR ING S hie 
ie partes REGISTER DEFINATIONS ARE CHANGE 
SW<00-04> SELECTS THE HEAD TO ALIGN. 


Oe 
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29-APR-77 1 
669 SW<08-10> SELECTS THE DRIVE TO ALIGN. 
670 TOGGLI Si< WILL BAUSE THE HEAD AND ORIVE 
re SWITCHES TO LECTION DONE AGAIN. 
rE ANOT noe ae eee DURING ADDRESS 
67 CONVERSAT IS CONTINUOUS HOME SEEKS. 
674 CAUTION MUST BE EXERCISED OURING THIS Sus TEST. 
£75 CONTI UNNECESSARY USE OF HOME SEEKS COULD BE 
76 DISTRUCTIVE TO A DRIVE 
v7 DATA TEST CONVERSATION MODE MAY BE ENTERED BY 
678 SELECTING TEST aren 3-7 IN SW<O0-02>. IF SELECTI-D 
$75 A NUMBER OF QUESTIONS WILL BE ASKED TO DETERMINE 
680 TEST PARAMETERS. ALL NUMBER RESPONSES SHOULD “e IN 
Pas OCTAL FOLLOWED BY A CARRIAGE RETURN. 
) 
2 THE CONVERSATION IS AS FOLLOWS: 


DATA TEST ONLY?(Y OR N) 


586 
687 IF THE OPERATOR RESPONDS YES THE PROGRAM ENTERS THE 
p88 DATA MODE ONLY, TEST S AND TEST & 

36 


30 MULT. IVE MODE?(Y OR N) 
£92 WITHIN THE MULTI DRIVE MODE, THE PROGRAM ALLOWS THE 
£93 OPERATOR TO EXERCISE ALL SYSTEM DRIVES WITHOUT 
534 RESTARTING THE PROGRAM. A COMPLETE PASS IS MADE ON 
695 DRIVE ZERO AND THE PROGAR THEN GOES TO THE NEXT 
ESE DRIVE UNTIL ALL DRIVES ARE DONE. AT THIS TIME THE 
597 PASSCOUNT IS TED AND TYPED OUT. GR 
Se CYCLES BACK TO UNIT ZERO AND CONTINUES. BEF ORE 
£99 TESTING STARTS ON A UNIT, THE UNIT NUMBER IS TYPED 
¢ 
701 
702 IF THE OPERATOR RESPONDS YES - THE PROGRAM ASKS FOR 
? THE NUMBER OF DRIVES. IF THE OPERATOR RESPONDS 
0 NO - THE PROGRAM ASKS FOR WHICH DRIVE 10 EXERCISE. 
706 NUMBER OF DRIVES 1 TO 10 (OCTAL)? 
708 
703 
7i RESPOND WITH Tr NUMBER OF DRIVES ON THE SYSTEM. 
713 IF THE OPERATOR RESPONDS “NO” TO MULTI DRIVE MODE 
ai THE FOLLOWING QUESTION IS ASKED. 
718 WHICH DRIVE? 

s 

zie RESPOND WITH UNIT NUMBER OF DRIVE TO TEST 

720 OPTIONAL WORD COUNT ?(Y OR N) 

4 

722 PROVIDES THE OPPORTUNITY TO SPECIFY YOUR OWN WORD 
723 COUNT WHICH MAY NOT EXCEED THE STANDARD WORD COUNT. 


UN 
724 THE STANDARD WORD NCouNT IS TYPED OUT AT THE START OF 
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THE PROGRAM. IF RESPONSE IS NO - THE NEXT QUESTION 
IS SKIPPED. 


LENGTH (1 TO STANDARD WORD COUNT)? 
SPECIFY WORD COUNT IN OCTAL. 
DO YOU WISH TO SELECT THE DISK TEST ADDR?(Y OR N) 


THIS WILL ALLOW THE OPERATOR TO SELECT A SPECIFIC 
AREA OF THE DISK FOR TESTING. 


IF_ THE OPERATOR RESPONDS “YES” THE FOLLOWING 
QUESTIONS WILL BE ASKED. 


STARTING CYLINDER 

STARTING HEAD 

STARTING TRACK 

RESPOND WITH THE DESIRED ADORESS IN OCTAL 
OPTIONAL DATA PATTERN NO.” 


YOU_HAVE THE OPTION OF LECTING ANY INDIVIOUAL 
PATTERN OR SELECTING ALL PATTERNS. 


PATTERN NO. PATTERN PATTERN NO. PATTERN 
163126 


0 1 10 404210 
1 Ses ll 167356 
4 125252 le 156735 
3 031463 13 135673 
- 007417 14 073567 
c 010421 1S 177777 - ate 
6 021042 16 RANDOM PATTERN 
7 042104 17 SELECTS ALL PATTERNS 
WRITE? (Y OR ND 
WRITE CHECK? (Y OR N 
READ? (Y OR N) 
THESE QUESTIONS ALLOW YOU_TO SELECT THE OPERATIONS 
THE DATA TESTS. 


TO BE PERFORMED IN 
. ENOR 


coco coq coco aD CD 
De 


coco co. coco co. co co.co.co co cocO 


TUPU TO & + 0 = = 
UN O00 YOU rr O 


co 
Tw 
t 
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1 
177570 


O00S00 


190000 
artatatete) 
ee rr 


29-APR-77 


-LIST 
-NUI 
ABS 


fiat -"-% POINTER 


TR=500 


;81T ASSIGNMENTS 


815=100000 
814=40000 


ME 
ST MC,MO,CND 
;COPYRIGHT 1972,1977, DIGITAL EQUIPMENT CORP., 
;CONTAINS DEFINITIONS, REGISTER ASSIGNMENTS AND MACRO CALLS 
;GENERAL REGISTER ASSIGNMENTS 
RO=%0 


DO 


14:49 PAGE 1S 


“ 


R1=%1 
Re=%e 
R3=%3 
R4=%4 
RS=%S 
SP=4%6 
PC=%7 

;STATUS REGISTER (PSW) BIT ASSIGNMENTS 
C=] ;C BIT 
V=e ;¥ BIT 
Z=4 32 BIT 
N=10 ;N BIT 
T=20 :T BIT 
PRI7=340 sPRIORITY LEVEL 7 
PRI6=300 sPRIORITY LEVEL & 
PRIS=240 ;PRIORITY LEVEL S 

I4= PRIORITY LEVEL 4 

PRI3=140 >PRIORITY LEVEL 3 
PRI2=100 PRIORITY LEVEL 2 
PRI1=40 sPRIORITY LEVEL 1 

; VECTOR ADDRESSES 
ERRVEC=4 ;ERROR VECTOR 

SVEC= : RESERVED INST VECTOR 
TBITVEC=14 ect OR 
IOTVEC=20 iToF TRE VECTOR 
Cz ren FAIL VECTOR 

EMTVEC=30 EMT VECTOR 
TRAPVEC=34 : TRAP VECTOR 

;REGISTER ADDRESSES Et 
PSW=177776 ;PROCESSOR STATUS REGISTER 
TKS=177560 ;KEYBOARD CSR 
TKB=177562 ;ADDOR OF KEYBOARD BUFFER 
TPS=177564 ; TELEPRINTER CSR 
PB=177S566 ; TELEPRINTER BUFFER 
SWR=177570 sCONSOLE SWITCH REGISTER. 
DISPLAY=177570 ‘CONSOLE DISPLAY REGISTER 


;PROGRAM STACK POINTER 


MAYNARD, MASS. 


ABILITY TEST MA 
29-APR-77 


020000 
010000 


l 
0004 
000209 
peo oe 

0040 
000020 
900010 
000004 


000092 
00000: 


000000 


104400 
104008 


; MEMORY 


B13=20000 


KIPORS=172312 
KIPDR6=172314 
KIPOR7=172316 
RW=6 

UP=00 


; INSTRUCTION EQUATES 
HLT=TRAP 


ee et es es es os et os oe ae 


SCOPE=EMT 


INDEX OF MACROS 
. SCOPE 


; INDEX OF CALLS 


E02 
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sHLT IS A TRAP TO THE ERROR ROUTINE 
;SCOPE IS AN EMT TRAP 


02 
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ei etal isle 


WO NOUS Wre-Ow 


o-- 


ocded0 


001000 
001002 


WWOO0OWUOWOWOW 
0+ b= b= b= b= bb be 


009200 


032737 


002336 


040000 
000220 
000212 
177746 


000020 


177570 


SCOPE 
SAVE 
REST 
HLT 
PRINT 


ug 
HOV , aSTART,PC :G0 TO START OF TEST 
ICNT: 0 CONTAINS Pass COUNT 
LAD: oO :PROGRAM TRACE 
“SCOPE (EMT) SERVICE ROUTINE 
:THIS ROUTINE WILL LOOP IF AN ERROR OCCURED AND 
"LOOP ON ERROR SuTTCH IS SET (BIT 14). IF LOOPING 1 INDICATED 
: ENTS - LOOP ADDRESS. IN R 
4 OF THE SHITC H REGISTER myst BE SET ANC 


LOOP ON E at 
SLOCAT ION “ERRFLG* MUST "BE NEGATIVE INDICATING AN ERROR. ONCE THE 
:LOOP IS INITIATED IT WILL CONTINUE UNTIL SWITCH 14 IS CLEARED. 


SCOPES: BIT #814, d8SWR sLOOP ON ERROR? 
BE ‘BRANCH IF 
St ERRFLG ils THERE an ERROR? 

23: a bBoric i Brent eARoRe ZonDITION 

13: " y LAD, (SP) i IFY RETURN ADDRESS 

:ROUTINE TO SAVE afESISTERS ON THE STACK. 

“CALLED BY SAVE MACRO 

tavE$: MOV Pe is :SAVE RETURN PC 
MOV (§ 
MOV RY, -(SP) 


-~, 
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001046 010346 MOV R3,-(SP) 
aug 001050 MOV Re, -(SP) 
941 001052 O10146 MOV R1,-(SP) 
942 001054 019046 MOV RO, -(SP) 
943 001056 016707 000000 MOV 1$;PC ;RET URN 
944 001062 600000 1S: 0 NTAINS RETURN ADDRESS 
345 :ROUTINE TO RESTORE REGISTERS saree ON THE STA 
346 “CALLED BY REST MACRO 
947 001064 012667 000020 RESTS: MOV (SP)+,1$ :SAVE RETURN PC 
948 001070 012600 MOV (SP)+°RO 
949 001072 012601 MOV (SP)+'R1 
950 001074 012602 MOV (SP)+'Re 
951 001076 012603 MOV (5P)+'R3 
952 001100 012604 MOV (SP) +) R4 
953 001102 012605 MOV (5P)+'RS 
954 901104 016707 9000900 MOV i$,PC : RETURN 
955 001110 oo0000 1$: 0 i CONTAINS RETURN ADDR 
956 ; ERROR SERVICE ROUTINE CALLED BY 
967 HERR OO TE a on eo eR. RING THE BELL AND 
358 TRANSFER CONTROL TO A USER SUPPLIED ROUTINE | IF SPECIFIED 
959 001112 005737 177570 ink ROR: TST aaSWR sHALT ON ERR 
90 901116 100001 BPL 3$ BRANCH IF nO 
91 001120 oo0000 HALT 
%2 OOllee 032737 OO4O0D 177570 3%: BIT #811, 28SWR RING THE BELL? 
963 001130 001403 BEQ 1$ :BRANCH IF NO 
964 001132 O04S67 000144 ISR RS, PRNTFS + PORCE NPRINT THE MESSAGE 
965 001136 001250 BELL 
966 001140 032737 O20000 177570 18: BIT #813, d8SWR ;SKIP TYPEOQUT? 
967 001146 O01022 BNE 23 :BRANCH IF YES 
968 001150 904567 000110 ISR RS, PRINTS “PRINT MESSAGE 
356 bot ise Or teeD po0006e2 pov © (6), HLTADS iGET RROR PC+2 
871 O901l6e 162767 O00002 oocos4 SUB #2, HLTADS ER 
972 001170 117767 OO00SO 900044 MOVB = JHLTADS.. HLTCTS + CAVE HLT ARGUEMENT 
973 001176 016767 OO0042 000356 MOV HL TADS, TTY yee 
974 001204 004767 000134 ISR PC, PRIATR ; TYPE LOCATION WITH LEADING ZEROS 
975 001210 004767 016150 JSR PC'MSG :G0 TO USER ERROR ROUTINE 
976 001214 005737 177570 2s: TST aeSwR “HALT ON ERROR? 
977 001220 100001 SPL 4§ BRANCH IF NO 
978 OOle22 o00000 HALT 4 
979 O0lee4 052767 109000 OSO000E 4s: BIS #815, ERRFLG :SET ERROR FLAG 
980 001232 005267 000010 INC ERRORS “UPDATE ERROR COUNTER 
981 001236 900002 ATI 
982 001240 oo0000 ERRFLG: 0 
983 O0le4¥2 900000 HLTCTS: O 
984 901244 o00000 HLTADS: 0 :PC OF ERROR 
985 001246 000000 ERRORS: 0 :ERROR COUNT 
986 001250 000007 BELL: .ASCIZ <7> 
987 001252 O0501S oosols oO41520 ERRPC: .ASCIZ <15><12><15><12>°PC= * 
988 001260 020075 600 
329 001264 EVEN 
990 : THIS ROUTINE WILL PR PRINT aN N ASCIZ MESSAGE. 
991 ‘THE MESSAGE MUS 
$92 001264 032737 O20000 177570 PRINTS: BIT 88! cR a eu : INHIBIT TYPEOUTS? 
993 001272 001493 BEG PRNTES :BRANCH IF N 
394 001274 062705 opcode add #2,RS i PDATE RETURN ADDR 
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SOUP RE RCS See 


DONTE WMO 
S8888888S888S 8888 


Os = bh be = be be be he be be be he pe pe 
S OONVOOO0OO000D 
wo 


SSSR PSRRE 


8 


001300 
001302 


ae 
Bia 


1 


== 
ale 


8 


- 
to 


= 452853R 


a 


oo 


cE EWWwwwW WwUua be fo ht he Pe he ee 


> 
28 


000008 


177564 


oo00sde 


177566 
177564 


G20000 


020000 


000001 


000132 
177772 


001540 


000100 
000120 
000112 
000104 


OOO046 
000042 


000080 
000031 


001540 
000060 
177534 


177570 


177570 


000140 


0001eS 


000102 


o 
PRNTFS: 


1$: 


2s: 


PRINTR 


PRINTS: 


PRINTA: 
PRINTB: 


-PTIT: 


-PRL: 


PRE: 


RS 
oeirs 


Rs, rt 
tee), BS 

2s 

(SP)+,R5 

Nae 1 ae 
aeTPS 


inte. 


PC 
#813, J#SWR 
PRINTB 


_ 
+6 

.PR 

#-6, .PR+1 
R4Y,-(SP) 
#.PR+2,R4 
(RY) 

. PRE 

(RY) 
#100,.PR 
. PRE 

TTY 

(4) 

TTY 

(4) 

TTY 

(4) 

(4) 

.+6 

.PR 

.PR 

. +6 
e°0,(4)+ 
PR+1 
.PRL 
#.PR+2,R4 
+6 

#°0, (434 
(4) 

RS,PRINTS 
(SP)+,R4 

PC 

le 


02 


13 
; THIS ROUTINE TYPES A_ LOCATION IN OCTAL 
#813, d8SWR 


;WAIT FOR PRINTER TO FINISH 


Oey RE RETURN PC 
iBfeck FOR TERMINATOR 
iGET RE RETURN ADDR 


{PRINT "CHARACTER 
WAIT TILL DONE 


; INHIBIT TYPEOUT? 
;BRANCH IF NO 


; INHIBIT TYPEOUT? 
;BRANCH IF NO 


4 ZERO FILL SWITCH 
Ser cou LEADING ZEROS 


SET POINTER Am eee CHARACTER 


ROTATE BIT INTO C 
:PACK IT 


iTS My ZERO 
P_INC 


‘eet FILL SWITCH 
: CHECK FILL SWITCH 
:SKIP BITSET 


IP BITSE 
: MAKE moe ASCIZ CHAR 
: INC COUN 
EAT 
S EMPTY BUFFER 
‘SKIP IF me 
AD ONE ZERO 


NULL_TEARINATOR 
{PRINT MESSAGE 


;RESTORE RY 


= 


a 
. 


FEB sore 


SIS aa sie oan cert 


S8S8S8SSSs8 SSSSSSSsSSSSSSSeS8Ssssssssse 


1071 


1081 


AseeseeSRRTER 


BRA 


— 
oO 


3 


ae ee 
Serr rst 
FRE o 


NEROPRE SSSR ORS 


002006 
002010 
00z01e 


002014 


“om 
on 
=) 
Fa 
=) 
rr 
-" 
i~< 
=" 


000020 


MACY11 27(1006) 
14:41 


bob Td 


000100 
177771 


oocos6 
000046 
001957 


047401 
ooc006 
000014 


000006 
177166 


002014 
002034 


177560 


177562 
900209 
000177 


177314 
177562 
177564 


000015 


177777 
177256 


i77566 


102 
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RANDS: 


1$: 


HINUM: 
LONUM: 
ee 


2s: 


4$: 


3$: 


INPUTS: 


-BLKW 


CBaGn Bo 


Rau Fs, R3 
SINPUTS#20, R3 


4k 
38177560 
aui77se2, (3) 
#200, (3) 
#177, (3) 
3$ 
RS,PRINTS 
q 
aeTKB, daTPB 
aNTPS 
#15,(3)+ 
2s 
-1(3) 
RS, PRINTS 
(6)+,R3 
PC 


20 


_ 


sey THE REGISTERS 
ET RO WITH LOW 
;SET Rl WITH HIGH 
:SET SHIFT COUNT 


;SHIFT RO LEFT AND 
!ROTATE CARRY INTO R1 AND 
sROTATE esa toe? Re 


ADD # TO MAKE X 129 
i PROPOGATE CARRY 
;ADD # TO MAKE X 129 
:PROPOGATE CARRY 


;PROPOGATE CARRY 
:PROPOGATE CARRY 


;RESTORE THE REGISTERS 


;SAVE R3 
:GET BUFFER ADDR 
: BUFFER FULL? 


sYES..TYPE ? 
;WAIT FOR A CHAR 


;GET CHAR 
;GET RID OF JUNK 
:IS IT A RUBOUT? 
;SKIP IF'NO 


;PRINT MESSAGE 


;CLEAR_ BUFFER AND START OVER 
:ECHO THE CHAR 


T FOR Y 
asia ste CHECK FOR RETURN 


;LOOP IF NOT RETURN 
;REMOVE THE RETURN 
“PRINT MESSAGE 


Restos R3 
:RETU 


2 


J 
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1107 002054 006477 000012 READMS: .ASCIZ °7'<15><12> 
1108 002060 00012 READL$: .ASCIZ <1l2> 
1110 ; TAKE CONTENTS OF THE TTY INPUT BUFFER AND 
iy : PACK THE ants ONE WORD TO CREATE AN OCTAL NUMBER 
1113 002062 PACKS: 
i114 O62 004767 176750 JSR PC, SAVES sSAVE THE REGISTERS 
Hie GEewse Baa, Ce aa 

eene 
tHtS Basoeg oereo | ooe014 2$: TSTB —sCINPUTS(RO) 
1118 002100 001402 BEQ 1$ 
1119 002102 005200 INC RO 
1120 002104 000773 BR 25 
1121 002106 18: DEC RO 
1l22 002110 004767 O00166 ISR PC, PACS GET OCTAL CHAR 
1123 002114 016767 OO00212 000212 MOV PKS NUNS ‘PACK FIRST CHAR 
1124 OO2l22 004767 000154 JSR PC, PAC GET OCTAL CHAR 
1125 002126 4] CLC 
1126 002130 006167 176 ROL PKS 
1127 002134 006167 000172 ROL PKS 
1128 O02140 006167 000166 ROL PKS 
1129 002144 056767 000162 000162 BIS PKS NUMS :PACK SECOND CHAR 
1130 002152 004767 O00124 JSR PC, PACS GET OCTAL CHAR 
1131 002156 O00241 CLC 
1132 002160 000367 000146 SWAB SséPKS 
Het fielte beer Bole ae 
1135 ned 74 pop oes nuipee 000132 BIS Eke NUMS :PACK THIRD CHAR 
1136 002 004767 000074 JSR PC, PACS ?GET OCTAL CHAR 
1137 002 000367 000120 swag 2S PKS 
1138 OO2212 o00e41 eCLe 
1139 002214 167 O00112 ROL PKS 
1140 O02 767 000106 o00106 BIS PKS, NUMS ;PACK FOURTH CHAR 
1141 002226 004767 OO00SO0 JSR PC. PACS “GET OCTAL CHAR 
1142 002232 000367 000074 swap PKS 
1143 002236 o0024 CLC 
1144 002240 006167 900066 ROL PKS 
1145 006167 O00062 ROL PKS 
1146 006167 00005 ROL PKS 
1147 002254 006167 O000S2 ROL PKS 
1148 002260 056767 OOO004E oo004E BIS PKS, NUMS :PACK FIFTH CHAR 
1149 O02266 o000402 BR PKEKIS 
1150 002270 062706 oD0002 PKEX$: ADD #2, SP :MODIFY STACK 
1151 002274 PKEX1$: » 
1152 002274 004767 176564 JSR PC RESTS sRESTORE THE REGISTERS 
1153 002300 000207 RTS PC EXIT 
1155 002302 005700 Pacs$: TST RO 
1156 002304 100771 BMI PKEXS 
1157 002306 005067 oD0020 CLR PKS 
1158 902312 116067 O02014 oo0012 MOVB  INPUTS(RO),PK$ ;GET INPUT CHAR 
1159 002320 005300 DEC R 
1160 042767 177770 cooode BIC #177770, PKS -CLEAR UNWANTED BITS 
16 002330 000207 RTS pc 


Pen hae ea ee ee ee 


1163 002332 000000 PKS: 0 
ite 002334 000000 NUMS: 0 


REAAC RELIABILITY TESI. Mg mt! 


~ 
o 
™N 


BBIFRLOHHSSSVFRLGVL BIS ISAAZAIVASSSGF Ff 


000500 


bere 


pb = b= b= & ~ p= — P+ P— P— hs ph 


> b= bb b= bb 0 bb bb bb 0 0 bb 0 be bb bb pe be pp 


SENeREGRSS 


NOW WOW 


017672 
176452 


023052 
176534 
176432 
177026 


bb bb bb 0 bb 0 0 0 bP 0 0 0 bb bb Bb 0 0 0 bb 2 0 2 be 0 bb 2 
be bb ds = he 


rurororurvrorururururulr 


ror 
—-OwO 





27( 1006) 


177870 
000004 
000006 


172342 


172316 


023162 
000004 


177570 
023066 


176722 


Oe 
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-TITLE RPLIC RELIABILITY TEST 


START: RESET ig FAR TH T WORLD 
M v aSTKPTR, SP cK an 
73 . Re’ ARTES MUA Fe SSAGE 
TST HEADER ;WAS RPO3(S) SIZED ALREADY? 
BEQ STRT IF YES, THEN DO NOT SIZE 
JSR PC. SUBSIZ OTHERWISE, SIZE FOR RPO3(S). 
RESTRT: CLR FLAG iCLEBR PROGRAM FLAG 
BIT #86, a8SWR : WANT TO USE MEMORY MANAGEMENT? 
MOV #2$, Q8ERRVEC _ :SETUP TRAP TEST FOR MEMORY MANAGEMENT 
MOV #340, JHERRVEC+2 
TST 8s. sR ;MEMORY MANAGEMENT 
CLR 28K IPARO “YES! SET UP TO USE MEMORY MANAGEMENT 
MOV #200 Sak IPARL | *SECOND 4K PAGE 
MOV #7600 JaKIPAR7 :1/0 PAGE 
MOV 400#256. TEOOCUP ERA. 38K IPORO s SET KTPORO=Ri UP 400 BLOCKS 
MOV #4008 256.-4O0+UP+RW,a#KIPDRI § ;SET KIPORI=RW UP 400 BLOCKS 
MOV #400%256. -400+UP+RW; SUKIPOR? ‘SET KI POR?= RW UP 400 BLOCKS 
INC #SRO . went MORY MANAGEME 
23: BIS #86, FLAG -BIT& SET = NO MEMORY MANAGEMENT 
7$: MOV BERRVEC + aeernvie sRESTORE TRAP CATCHER 
CLR QBERRVEC+E 
CLR HEADER sASCII TERMINATOR SO ON RESTART THERE IS NO HEADER 
ISR RS. EXTMEN :SET UP DATA BUFFERS 
CLR SEEK ‘INITALIZE SEEK RANDOM NUMBER GENERATOR 
CLR CNT ‘CLEAR THE PASS COUNTER 
CLR DSKNOR :CLEAR UNIT FLAG 
CLR CYLINDER : CLEAR THE CYLINDER ADDRESS 
CLR DMA CLEAR DAR REGISTERS 
CLR PATNU “CLEAR PATTERN COUN 
CLR CNTA :CLEAR READ COUNTER TEOR DATA AND RANDOM TEST 
BIT #88, JSWR USE CONVERSATION MODE? 
BNE LCONM :BRANCH IF YES 
BIS #70000, FLAG 
sENTER OPERATOR CONVERSATION MODE 
LCONM: MOV aaSWR, - (SP) ;PUT SWR ONTO STACK 
BIC #-10, (SP) :CLEAN OUT UNWANTED SWITCHES 
CMP #3, (SP)+ i TEST 3? 
BLOS ‘BR IF YES 
= JMP CYLSK :GO DO ADDRESS CONVERSATION 
ISR RS, PRNTFS :FORCE PRINT THE MESSAGE 
SPECMES :STANDARD WORDS TRANSFERED = 
MOV SWROCT, TTY 
ISR PC, PRINTS ;FORCE TYPE LOCATION - SUPPRESS ZEROS 
JSR RS; PRNTFS ; FORCE PRINT T SSA 
CON] ASK ABOUT DATA TEST ONLY 
JSR PC, READS : INPUT MESSAGE 


Oe 
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1222 O02656 122767 000131 177130 CMPB #131, INPUTS Test FOR YES 
1e54 002674 Heaes ean spgette Bis RS, gl, Fag 2 CE PR Mt u a Shor 
Lee 902709 414 CONe 1A oat eh Be VE MODE 
1 ? 176776 JSR ADS 

1228 002706 122767 000131 177100 CMPB nian INPUTS Test ‘FoR vee 

1229 002714 001040 BNE DATTES H IF NO 

1230 oe? & 052767 OO4000 022740 aie BIS #B11,FLAG ery MULTI UNIT FLAG 

eae o27e4 004567 176352 ISR. RS, PRNTFS Gerke ge uTte MESSAGE 
1533 pass hati 176746 ISR PC, READS INPUT MESSAGE 

1235 002736 004767 177120 JSR PC’ PACKS CONVERT INPUT TO A NUMBER 
le 2 767 177366 TST NUMS ‘IS IT ZERO 

le 746 001766 BEQ DSKDR 

1238 002750 162767 000001 177356 SUB #1, NUMS 

1239 002756 022767 000010 177350 CMP #10, NUNS :IS NO. TOO HIGH 

Su pnsoee a EoeS 17734 720 Soy SAVE HIGHEST UNIT NO 

sis pos 766 pugebs 1oesi6 aS 712 BIC Ranson DSKNOR ” 

1243 003002 000241 CLC 

Ioye Soao1d peeLeS Os850d ROL BSKNOR 

Ea ett BR ARKWC 

1247 003016 DATTES: 

1248 003016 OO4567 176260 ISR RS, PRNTFS sORCE PRINT THE MESSAGE 

1 BR SBSG Bede e5 176654 §eH PC, READS : INPU ul heseace 

1251 003030 004767 177026 JSR PC’ PACKS :CONVERT INPUT TO A NUMBER 
1252 003034 022767 OO0010 177272 CMP #10, NUMS :IS NO = ORDIO 

1253 003042 101765 BLOS DATTES :NO 

1254 003044 00024] cLc 

1255 00304 O06167 177262 ROL NUMS 

1256 003052 006167 177256 ROL NUMS 

1257 003056 056767 177252 o22600 BIS NUMS, FLAG ;SAVE UNIT UNDER TEST 

1258 003064 ASKWC: 

1259 003064 OO4S67 176212 JSR RS, PRNTFS ;FORCE PRINT THE MESSAGE 
1260 003070 024731 CONS ‘ASK ABOUT OPTIONAL WORD COUNT 
1261 003072 004767 176606 JSR READS INPUT MESSAGE 

lebe 003076 122767 000131 176710 CMPB si3t, INPUTS ;TEST FOR YES 

1263 003104 001034 NE :ASK ABOUT OPTIONAL DAR 
1264 003106 WCCON: 

1265 003106 176170 ISR RS, PRNTFS ; FORCE PRINT THE MESSAGE 
1266 ON3112 024771 CONG ASK LENGTH OF WC 

1267 003114 004767 176564 JSR PC, READS INPUT M NESGA GE 

1268 003120 004767 176736 JSR PC’ PACKS :CONVERT INPUT TO A NUMBER 
1269 003124 005767 177204 TST NUMS 

1270 003130: 001766 BEQ WCCON 

1271 003132 016767 Oeesse 022574 MOV SWROCT , WORK 

1272 003140 005267 022570 INC WORK 

1273 003144 026767 O22564 177162 CMP WORK , NUMS ;15 NO. GREATER THAN AVAILABLE CORE? 
1274 003152 101755 BLOS  wWCCON “YES ASK FOR COUNT AGAIN 
1275 003154 016767 177154 o22S26 MOV NUMS , SWRDCT ‘OPERATING WORD COUNT 

1276 003162 016767 O22522 O22504 MOV SWROCT, WROCT 

1277 003170 052767 000002 OecuEE BIS #81,FLAG sOPERATOR SELECTED WORD COUNT 
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1278 


i 


ey yy ey ey ee ed ee ee ee ee ee ed ee ed de ed ee ee ee 


w 
& 


SOBRE Rees Sanco See ene ORS See SRR S OR 


176100 


176474 
000131 


000040 
176050 


176444 
176616 
000626 


177054 
176014 


176410 
176562 
00 


176764 
175724 
176320 
176472 
000020 
000017 


100000 
17671e 


176576 
022436 


177062 
022404 


177026 
022352 


176772 
022320 


176736 
176726 
022246 
022260 


022224 


176334 
022174 


TKSR: 


OPDAR: 


OPDAL: 


OPDAe: 


OPPAT: 


OPWRT: 


OPRD: 


Shiva 
JSR 


RS, PRNTFS 


C, READS 
J, INPUTS 


#85, FLAG 
RS, PRNTFS 
PC, READS 
PC’ PACKS 
626, NUMS 
POAR 
NUMS, SCYL 
RS, PRNTFS 
PC, READS 
PC’ PACKS 
aed NUMS 
DAL 
NUMS , SHED 
RS, PRNTFS 
PC, READS 
PC’ PACKS 
#12, NUMS 


OPD 
NUMS , SSEC 


os 


RS, PRNTFS 


OPWRT 
#815,FLAG 
NUNS, PATNU 


SP 00bO FLAG 
RS, PRNTFS 
PC, READS 
#131, INPUTS 
#814, FLAG 
RS, PRNTFS 
PC, READS 


Oe 


ARORA EAT tbe 


INPUT ME 
A, Pe, oR SUPPLY ADDR? 


;FORCE PRINT THE MESSAGE 
GET CYLINDER ADOR 

: INPUT MESSAGE 

;CONVERT INPUT ee A NUMBER 
31S CYLINDER LEGAL 


;SAVE ADDR 
;FORCE PRINT THE MESSAGE 
AD ADDR 


‘INPUT MESSAGE 
:CONVERT INPUT TO A NUMBER 


peeresce IF HEAD ADDR TOO HIGH 
;SAVE ADDR 

;FORC 
‘GET 
eal et 
sCONVERT INPUT TO A NUMBER 
:1S SECTOR ADDR TOO HIGH? 


;SAVE ADDR 


PRINT THE MESSAGE 
CTOR ADDR 


3 FORCE PRINT THE MESSAGE 
5 DATA PATTERNS 
i TRPUT MES 


SAGE 
:CONVERT INPUT MY A NUMBER 
; TEST FOR CORRECT NO 
;ASK AGAIN 


;DATA pore UNDER PRCGRAM CONTROL 
:SET PROGRAM FL 
OPERATOR WANTS TO SELECT DATA 


;CLEAR OP MODE BITS IN FLAG 
: FORCE PRINT THE MESSAGE 
ABOUT WRITE 


INPUT MESSAGE 

s TEST FOR YES 

K ABOUT WRITE CHECK 
ives SET FLAG BIT 


; FORCE yg ' THE MESSAGE 
SASK ABOUT READ 
: INPUT MESSAGE 


2 
— 
- 
- 


= bs B+ b+ bs bo bs Pe Bw Bo Be Be Be Be iz 
neuyEbySEEEEES g 


i 


a ats a al ta la 


a 


SE RR 


S 
@ 


SRREBROSS 


0 + 0 = b= bb bs Be 0 be = bb bs bs be be be 2 bs be be Be bo bs be he he be ee 
wt 

iti 

wo 
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003S02 122767 000131 176304 CMPB  =—s-_: #131, INPUTS : TEST FOR YES ANSWER 

003510 001003 BNE 

003512 052767 010000 022144 albes BIS #812, FLAG ;SET FLAG TO READ 

pesese 004S67 175556 JSR RS, PRNTFS sFORCE PRINT THE MESSAGE 

003524 025236 CON1O ‘ASK ABOUT WRITE CHECK 

003526 004767 176152 JSR PC, READS ‘INPUT MESSAGE 

003532 122767 000131 176254 CMPB  =s-«# 1.31, INPUTS 

003540 001003 BNE CHKMOD 

003542 052767 020000 022114 BIS #813, FLAG :SET WRITE CHECK FLAG 

0035S0 032767 070000 O22!06 CHKMOD: BIT 870000, FLAG :MAKE SURE SOME OPERATION WAS SELECTED 

003556 001725 BEQ OPWRT 

003560 005737 oo0042 AOTST: TST ase ; UNDER MONITOR CONTROL? 

003564 001444 BEQ 1$ BRANCH IF NO 

003566 005067 022122 CLR DSKNOR 

003572 012777 OOO00l o22040 3s: MOV #1, ARPCS ;CLEAR THE RPLIC 

003600 116777 O22110 022034 MOVB  DSKNOR,ORPCS! SELECT THE DRIVE 

003608 005777 Oe2046 TST JRPOS :1S THE UNIT READY” 

003612 100003 BPL 2$ ‘BRANCH IF NO 

003614 005267 022074 INC DSKNOR ‘UPDATE UNIT NUMBER 

003620 000764 BR 3$ 

003622 005367 d220b6 2s: DEC DSKNOR ;DSKNOR = NUMBER OF UNITS 

003626 000241 Cie 

003630 006167 022060 ROL DSKNOR 

003634 006167 022054 ROL DSKNOR 

003640 052767 004000 o22016 BIS #811. FLAG ;SET MULTI DRIVE FLAG 

003646 005767 O2204e2 TST DSKNOR ‘WERE ANY UNITS AVAILABLE” 

003652 100011 BPL 1$ :BRANCH IF YES 

003654 ? 175404 ISR RS, PRINTS :PRINT MESSAGE 

003660 O24240 MES20 

003662 013701 oooo4e MOV a842,R1 :ABORT - NO UNITS AVAILABLE 

003666 O0S067 174150 CLR 42 :SET ABORT FLAG 

003672 000167 010650 IMP MEXIT 

003676 032767 000 021760 1S: BIT #811, FLAG ;ARE WE IN MULTI DRIVE MODE? 

003704 o01422 BEQ EXMFLG :BRANCH IF NO i 

003706 OOvSE b? 175370 ISR RS, PRNTFS :FORCE PRINT THE MESSAGE 

003714 016767 021744 o22004 MOV FLAG, ACNVX : TELL OPERATOR THE UNIT UNDER TEST 

003722 006067 Oec000 ROR ACNVK 

003726 7 021774 ROR ACNVX 

003732 042767 177770 021766 BIC 8177770, ACNVX 

003740 016767 O2l762 175614 MOV ACNVX. Try 

003746 004767 175426 JSR PC PRINTB sFORCE TYPE LOCATION - SUPPRESS ZEROS 

003752 37 OO00I0 177570 EXMFLG: BIT #83, 28SWR :RUN SELECTED TEST? 

003760 001410 BEG 1$ "BRANCH IF NO 

003762 013700 177570 MOV JaSWR, RO :GET SWITCH SETTINGS 

003766 042700 177770 BIC #177770,RO0 

003772 4 CLC 

003774 006100 ROL RO 

003776 000170 oo4DIE IMP JTSTTBL (RO) :GO TO SELECTED TEST 
032767 002009 o21es4 1S: BIT #810, FLAG :DATA TEST ONLY? 

004019 O01412 BEG ADT I iN 

004012 OO0167 o06212 IMP DATAT :00 DATA TEST 


i 


Saeaeaeeess 
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oo & 
28 
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38 
yy 


TE 
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cee eee reer 


BS 
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021544 
021540 
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.SBTTL 288% TEST O #4284 


Th a: TEST THE PROGRAM SEEKS FROM 0 TO_N AND Ma oa 


DONE’ IS TIMED OUT, SELECTED UN 


IS CHECK, AND THE ATTENTION FLAG IS TESTED. 


ADTI: 


RADTI: 


93: 


1$: 


2s: 


2$: 
S$: 


N STARTS AT ZERO THEN INCREMENTS TO 1 


TESTNO 
RS,PRINTS 


TESTNO Ty 
sINTCK, JVECTOR 
8340, STATUS 


340 
RS, OSKNOS 
CYLINDER 


WORKS 

8PRI4, 28PSW 
JRPDS’ IRPDS 
CYLINDER, ORPCA 
#20011, aRPCS 
825,R0’ 

1$ 

QPPCS 

2g 

Qs 

WORK2 

33 

#810, IRPOS 
3$ 


asecYLa 


1 AND UP THRU 62S 
UNIT CYLINDER ADDRESS IS TESTED, SEEK UNDERWAY 


;PRINT MESSAGE 


; TYPE ly sts ZEROS 


SET UP DISK VECT 


;SELECT UNIT 
sCyL TnOeR COUNTER 


;ALLOW INTERRUPTS 
; CLEAR ATTENTION BITS 


WER Be Cae TER 


YLI 
CLEAR “tN TERRUPT 


SEEK AND ENABLE atin INTERRUPT 
;DELAY FOR DONE TO SET 


; TEST FOR DONE 
BRANCH DONE SET 


:DONE DID NOT SET AFTER SEEK 
;DON’T ist SEEK UNDERWAY 
THRU 


IF FIRST TIME 
3010 5e SEEK UNDERWAY SET? 


; SEEK UNDERWAY DID NOT SET 


; TIMEOUT UNIT READY 
[1S UNIT READY? 
‘BRANCH IF YES 
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ZRPBE.P11 29-APR-77 14:41 eeeee TEST O sees 

1 700 TST RO ; TIME QU 

4y l S$ :B ARCH NO 

1448 aes ies HY is : READY ofp NOT SET AFTER SEEK 

1450 vit 7? o00226 63: TST INTFLG 010 INTERRUPT OCCUR? 

1451 004264 rata BNE 12$ 

1452 004266 104400 HLT SENT ERRUPT DID NOT OCCUR ON ATTENTION SIT 

1453 004270 000430 BR 98$ 

1454 004272 004767 012546 128: JSR PC. GATTN ;DETERMINE ATTENTION BIT 

1455 bove76 0367772 012572 021354 BIT artN, aRPOS 18 ATTENTION 817 SET? 

1457 004306 104400 ty ‘ATTENTION BIT DID NOT SET 

1458 004310 o00420 BR QS 

1459 004312 026777 021360 C21342 73: CMP CYLINDER, dSUCA ;IS SUCA CORRECT? 

1460 004320 001410 BEQ 

1461 004322 016767 021350 013474 MOV CYLINDER, EXPS ;EXPECTED RESULTS 

1462 004330 017767 021326 013470 MOV as CA, RECS ; RECEIVED RESULTS 

1463 004336 104401 HLT +1 :CONTETNS OF SUCA INCORRECT 

1465 ppdaus Be 799 021272 118: Re JRPCS sANY DEVICE ERRORS 

te? pases errs ay = DEV ICE ERROR AFTER SEEK OPERATION 
AT 

1468 004352 493390 004000 021300 §s: BIT #811, 9RPOS ; SEEK INCOMPLETE RROR? 

1469 004360 001412 BEQ 4 H IF NO 

470 OO4362 112777 O0001S5 Oe212s0 MOVE 81S. aRPCS PISSUE HOME C CO 

1471 004370 105777 021244 TSTB = aRPCS {WAIT FOR DONE 

1472 004374 100375 BPL - 

1473 004376 032777 100000 021254 13%: BIT #815, dRPDS ;WAIT FOR UNIT READY 

1474 OO44O4 001774 BEQ 13$ 

1475 OO4406 012767 OCO4124 174366 4S: MOV #93, LAD :SET UP LOOP 

1476 OO4414 104000 SCOPE 

1477 004416 005767 021320 TST WORK3 : SEEK CYLINDER ZERO? 

1478 OO4422 100411 BMI 10$ :BRANCH IF YES 

1479 004424 005267 021310 INC WORKe :UPDATE CYLINDER 

1480 OO4430 016767 021304 021240 MOV WORKe, CYLINDER 

1481 004436 052767 100000 021276 BIS 8815, WORK3 :SET SEEK ZERO FLAG 

1482 904444 900627 BR 95 

1483 OO4446 005067 921224 10$: CLR CYLINDER 

1484 OO044S2 005067 O21264 €LR WORK3 ;CLEAR SEEK ZERO FLAG 

1485 OO44SE 022767 000625 021254 CMP #625, WORK2 !HAS LAST CYLINDER BEEN REACHED? 

1486 OO4464 001217 BNE BRANCH IF NO 

1487 OO4466 032737 002000 177570 BIT #810, JeSWR :REPEAT TEST 

1488 004474 901407 BEQ adTe =NO-GO TO NEXT 

1489 004476 OO0167 177360 IMP RADT 1 : YES 

i491] 

1492 O04S02 012767 000001 00002 INTCK: MOV 81, INTFLG :SET INTERRUPT FLAG 

1483 904510 900002 TI 

1394 904512 900000 INTFLG: O 

ie .SBTTL #eeee TEST | seeee 

1496 ;WRITE SOOO (OCTAL) WORDS IN TEN SECTORS ON EACH TRACK. THE FIRST 

1495 *WORD OF EACH SECTOR IS THE cud NOER NUMBER AND THE REMAINING WORDS CONT TRIN 

1500 : THE HEAD AND SECTOR ADDRESS. THEN EACH SECTOR IS READ BACK TEN AT A TIME AND . 

153i :COMPARED. IF THE FIRST WORD OF A SECTOR DOES NOT COMPARE. THE WRONG 
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1502 ;CYLINDER WAS PROBABLY SELECTED. A NON COMPARE ON THE FIRST 
1503 :WORD IS INDICATED BY TYPING “CYL” AFTER THE ERRING DATA. 

1504 IF ANY OTHER WORD FAILS THE WRONG HEAD OR SECTOR WAS 

1505 ; SELECTED. THE RIGHT HALF OF THE DATA TYPED EQUALS THE SECTOR 
1306 AND THE LEFT HALF INDICATES THE HEAD. 

1508 004514 012767 000001 021206 ADT2: MOV #1, TESTNO 

1509 004522 O04S67 174536 JSR RS, PRINTS ;PRINT MESSAGE 

1510 04506 023766 MES6 

1511 004530 016767 021174 175024 MOV TESTNO, TTY 

1512 004536 004767 174614 JSR PC, PRINTS ; TYPE _LOCATION-SUPRESS ZER 

1513 004542 005067 015202 CLR MEX ‘CLEAR DRIVE EXTENDED memory BITS 
1514 004546 004567 012064 RADT2: JSR RS, DSKNOS SELECT THE DRIVE 

1515 004552 O27 77 900015 021060 15: BIS #15, + BRPCS ;SEEK HOME 

1517 BONES 005300 a 2s: DEC RO ;GIVE DONE A CHANCE TO SET 

1518 OO4S66 001376 BNE 2$ 

1519 004570 105777 o21044 TSTB = ARPCS ;1S DONE SET? 

1520 004574 100402 BMI 3S : YES-BRANCH | 
1521 004576 104400 HLT !DONE DID NOT SET AFTER A SEEK HOME 
1522 004600 000425 Be b$ :CHECK FOR LOOPING 

1523 O04%02 005000 3S: CLR RO 

1524 004604 005200 S$: INC RO 

1525 004606 005777 021046 TST RPDS ;1S_ UNIT READY? 

1526 OO4612 100414 BMI 4§ YES BRANCH 

1527 004614 005237 025746 INC aacYLA 

1508 004620 005237 025746 INC aacyLA 

1529 004624 005337 7 DEC ascYLA 

1536 004630 005337 025746 DEC aacyLA 

1531 004634 005700 TST RO ;HAS UNIT TIMED OUT 

1532 004636 001362 BNE ot :NO-BRANCH 

1533 OO4640 104400 HLT ?READY DID NOT SET AFTER HOME SEEK 
1534 O04642 OO0404 ge at ;CHECK FOR LOOPING 

1535 004644 005777 020770 4S: TST aRPCS 5 ANY ERRORS? 

1536 OO46S0 100001 BPL oS NO-BRANCH 

1537 o04%652 104400 HLT ;DRIVE ERRORS AFTER HOME SEEK 
1538 004654 012767 o04sSe 174120 $$: MOV #1$,LAD ;SETUP LOOP ADDRESS 

1539 004662 104000 SCOPE 

1540 004664 012767 005000 021002 MOV #5000 WROCT ;SETUP WORD COUNT FOR 10 SECTORS 
1541 004%72 012767 Oe57$2 021006 MOV OUTBUF , 8 :SETUP OUTPUT BUFFER ADDR 

1542 004700 005067 920774 CLR MA 

1543 004704 605067 020766 CLR CYLINDER 

1544 004710 012700 d257be SEABUF: MOV wOUTBLF RO ;GET BUFFER STARTING ADDR 

1545 004714 012701 000400 21$: MOV #400 :SECTOR COUNT 

1546 004720 016720 020752 MOV AYLINOER, (RO)+ : GENERATE PATTERN SO THAT THE 
1547 004724 005301 DEC R1 i THE FIRST WORD OF EACH SECTOR 
1548 004726 016720 020746 1S: MOV DMA, (RO)+ ;EQUALS THE CYLINDER ADDR AN 
1549 004732 005301 DEC RI : THE REMATNOER” EQUALS THE HEAD ANC 
1550 904724 001374 BNE 1$ SECTOR ADDR 

1551 004736 122767 000011 920734 CMPB = s#11,0MA 

1552 004744 001403 BEQ 2e$ : 

1553 OO4746 005267 020726 INC OMA ;UPDATE SECTOR COUNT 

554 004752 000760 os 21$ 

1555S 004754 105067 020720 22$:  CLRB OMA : 

155— 004760 OO4SE7 O102lE 48: ISR RS, FUNCT ;WRITE TEN SECTORS 


i557 004764 000003 WORD 3 
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1SS8 004766 005000 CLR RO 
1553 004770 005200 3s: INC RO 
1 bee 105777 O20642 TSTB gRPcS : 15 DONE SE SET? 
1561 100404 BMI $ 
15be 005000 908700 ist RO ‘TEST FOR TIMEOUT 
¢ 
1564 ppents aed ant ;BRANC Boe noe SET AFTER WRITE 
1565 005006 000501 BR S$ 
1566 005010 005777 O20624 23: TST SRPCS sANY RNY DEVICE ERRORS’ 
1567 005014 100002 BPL 6$ 
1568 005016 104400 HLT RPLIC STATUS ERROR AFTER WRITE 
1589 005020 000474 BR S$ 
1570 o0S022 7? 020706 6S: CLR WORK ; INCREMENT FLAG 
1571 005026 017767 Oe0620 01277 MOV JRPDA, RECS : ISK AD 
1572 005034 042767 177760 012764 BIC yearn RECS § ;SAVE SECTOR ADDR 
1573 O0S042 005767 012760 TST RECS 
1574 O0S046 001404 BEQ ag ;BRANCH IF SECTOR = ZERO 
1575 005050 005067 012750 CLR EXPS 
1576 005054 104401 HLT +1 ; SECTOR ROOR IN RPDA DID NOT UPDATE 
1577 O00S0S6 OO04SS BR S$ ; PROPERLY AFTER A TEN SECTOR WRITE 
1578 005060 117767 O20S70 912740 9S: MOVB = RPDAL, RECS GET THE 
1579 O0S066 116767 020607 012730 MOVE DMA+1,EXPS i SECTOR RODR ou PUTTED 
1580 005074 122767 000023 012722 CMPB s«#2.3,, EXPS DID We QUTPU T HEAD 237 
1581 005102 BNE ? Ban 
1582 905104 012714 CL EXPS ESE 
1583 005110 010667 020620 MOV SP, WORK : SET INCREMENT OF LAG 
tee Serie ves os 1270e 7g PAC EXPS 
13 Bye tee 126767 pier e 012676 8: CMPB OsédEXP S$, RECS :1S DISK HEAD ADDR CORRECT? 
1587 005130 001402 BEQ 123 BRANCH IF YES : 
1588 005132 104401 HLT +1 ; HEAD ROOR IN N RPDA hs INCORRECT 
1589 005134 O0042 BR S$ AFTER TEN SECTOR WRITE 
1590 905136 017767 Oe0S0E Ol2662 128: MOV DRPCA, RECS GET DISK CYLINDER ADDR : 
1591 005144 016767 Oe0526 o126S2 MOV CYLINDER, EXPS 
1592 0051S2 005767 O20SS6 TST :1S INCREMENT FLAG SET? 
1593 005156 001410 BEG ee :BRANCH IF 
1594 005160 905267 012640 INC EXP 
1595 005164 022767 000626 012632 CMP #626, EXPS :WAS IT LAST CYLINDER? 
159 005172 O01 BNE 13$ BRANCH IF NO 
1597 005174 005067 012624 CLR EXPS A 
1598 005200 026767 Ol2620 012620 138: CMP EXP§, RECS :IS DISK CYLINDER ADDR CORRECT” 
1599 001401 BEG $ ; BRANCH IF YES 
1600 905210 104401 HLT +1 :CYLINDER ADDR IN RPCA IS NOT 
1601 + KORRECT AFTER TEN SECTOR WRITE 
iD2 O0Se12 032777 OO4O00 c2o440 SS: BIT #811, dRPOS :SEEK INCOMPLETE ERR 
1693 005220 O01412 BEQ 10$ :BRANCH IF NO 
1604 O0S222 112777 oO00015 O20410 MOVB 815, aRPCS ISSUE HOME COMMAND 
1605 905230 105777 O20404 TSTB. ss aint :WAIT FOR DONE 
1606 005234 100375 BPL a4 
1607 005236 777 100000 O20414 118: 8IT #815, IRPDS ;WAIT FOR UNIT READY 
1608 005244 001774 BEG 11s 
1609 O0S246 012767 004760 172526 108: MOV #4$, LAD :SETUP LOOP ADDR 
1610 o00S5254 104000 SCOPE 
1611 O0525¢ 004767 010744 JSR PC. DISBUF : SETUP NEXT DISK ADDR 
léle O05262 O00€1e2 BR SEABUF “WRITE NEXT SECTOR 
1613 005264 012767 oosood oec4oe2 MOV #5000 ,WROCT “RESTORE WORD COUNT 


SSCA UID REI e7mne 


1614 
161 
161 


ld ee ed 
OOD J 


rua 


SOR Poe & 


o 
8 


1633 


SBRe 


00S27e2 


000015 
020334 


020346 


025762 
005000 


007644 


000400 
173562 


020170 
004000 


000015 
020106 


100009 
005314 
OL044E 


020340 


020eS4 


020244 


012382 
Cle34e 


020142 
Q201le 


020116 
173230 
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ROSECT: 


238: 


- WORD 


ADHGT: 
ADHGT1: 


SANHT: 


ADERC: 
ADERR: 


ADERCI: 


M 
ADTERL: 


es: 
1S: 


a“, 
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* TEST 1 #eene 


#15, IRPCS 
arpts 


anpos 
#OUTBUF , RO 
#5000,R1 
(RO)+ 

Rl 

23% 

RS, FUNCT 
aRPcs 
SRPCS 
ADHGT 


#814, ARPCS 
ADHGT 


ADTER1 
oe ee RO 


#400 
EYETHOER, (0) 


ADHGT 1 
EYL THOER, EXP$ 


O), one Es 


Mi 0,R1 
ADTER 
RS,PRINTS 
DMA 
#811,aRPDS 


1$ 
815, SRPCS 
arPts 


#815, JRPDS 


es 
#ROSECT,LAD 


PC D1SBUF 
RDSEC 


;SEEK HOME 
;WAIT FOR DONE AFTER SEEK HOME 
;WAIT FOR DRIVE READY AFTER SEEK HOME 


;CLEAR THE BUFFER 
;READ TEN SECTORS 


;WAIT FOR DONE AFTER READ 
sANY ERRORS? 

BRANCH NO ERRORS 

: STATUS — AFTER A READ 
WAS IT A DATA ERROR? 

IF YES GO COMPARE DATA 


;I1S CYLINDER WORD CORRECT” 
BRANCH IF NO 


;1S HEAD- rt at A Na WORD CORRECT? 
;BRANCH IF NO 


;CORRECT DATA/“ADDRESS 


; CORRECT SA OnE SS 
INCORRECT DATA 

;DATA COMPARE ERROR 

WAS ae WORD INCORRECT? 
Japa F NO 

;PRINT MESSAGE 

;WRONG CYLINDER PROBABLY SELECTED 


;SEEK INCOMPLETE ERROR” 
BRANCH IF NO 

; ISSUE HOME COMMAND 
;WAIT FOR DONE 

;WAIT FOR UNIT READY 
;SETUP LOOP 


;SETUP NEXT DISK ADDRESS 
:;CHECK NEXT SECTOR 


H 
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1670 o00SS62 032737 O02000 177570 BIT #810, daSWR :LOOP ON TEST? 
1671 005570 001402 BEQ ADT3 :BRANCH IF NO 
1672 005572 000167 176750 IMP RADTe2 
1823 .SBTTL ###8% TEST 2 #44%# 
1675 :WRITE THE FIRST WORD OF EACH CYLINDER WITH THE CYLINDER ADDRESS. 
1676 ; THEN SEEK FROM 625 TO 0. THEN SEEK TO 624 AND BACK TO 1 
1677 UNTIL THE NUMBERS CROSS. AFTER EACH SEEK VERIFY THE POSITION 
1678 'BY READING THE FIRST WORO ON THE CYLINDER AND COMPARING 
1679 : AGAINST CYLINDER REQUESTED. 
1681 005576 012767 000002 020124 ADT3: MOV #2, TESTNO 
1682 O0S604 O04S67 173454 JSR RS; PRINTS :PRINT MESSAGE 
1683 005610 023766 MES 
1684 O05612 016767 Oe0112 173742 MOV TESTNO, TTY 
ee Gees Beay dis SS PON SEED ON? ars 
168 Spee Sd 767 ptt heg RADT3: JSR PC INIT INITIALIZE VECTORS 
1688 005634 004567 010776 JSR RS’ DSKNOS :SELECT UNIT 
1689 005640 00S067 020034 CLR mA 
005644 Oe CLR CYLINDER 
fede DOSEER OLS7e? GoStee | De0DeE MOY A HROCT Oe =f BETUP BUPFER ADDR 
1693 O0S5664 016737 Oe0006 025762 WRCYL: MOV SOCTRDER. asOUTBU # “INSERT PATTERN 
1694 905672 DO4567 007304 SR RS, FUNCT E PATTERN ON FIRST SECTOR 
1695 005676 WORD ioe uf LINDE 
16% 005700 105777 017734 TSTB = ARPCS “WAIT FOR DONE 
tee, eee Aer? 017726 art ARPCS RRORS? 
ipa BRet0S Weaarz a C3 +B RRNER TE NO 
1700 005714 104400 HLT ; :DEVICE ERROR WHILE WRITING 
t5RA ates RO8304 000625 017750 1: Bie G225, CYLINDER sALL CYLINDERS WRITTEN? 
1703 005726 001403 BEQ 23 “BRANCH IF YES 
1704 7 7 017742 Ine CYLINDER 
1705 7 R WROYL 
1706 736 932 004000 917714 2S: BIT #811, aRPDS ;SEEK INCOMPLETE ERROR? 
1707 O0S744 O014le BE 3$ :BRANCH IF NO 
1708 005746 112777 OO0001S 017664 MOVB #15. aRPCS ISSUE HOME COMMAND 
1708 005754 105777 017660 TSTB 3s aPC ‘WAIT FOR DONE 
1710 005760 100375 BPL 4 
1711 005762 032777 100000 017670 4$: BIT #815, IRPDS ;WAIT FOR UNIT READY 
1712 005770 001774 BEQ 4 
1713 005772 012767 O0S664 173002 3S: MOV #WRCYL, LAD :SETUP UP LOOP 
1714 006000 104000 SCOPE 
1715 006002 O0S067 017670 CLR CYLINDER 
1716 OO6006 012767 000624 017724 MOV abel WORK2 


bia Boeteo Boeber 817755 th Ban SINC = DEC FLAG 


1719 006024 016767 017672 017654 ADT32: MOV INBUF , BUF 


1720 906032 S67 007144 JSR RS, FUNCT AER THE FIRST WORD OF THE 
Hn fee He of a 

17 1 017574 TSTB =“ SHAT? POR DONE AFTER READ 
1723 006044 100375 BPL 

1724 QOO604€ 005777 017566 TST aRPcs ;ANY ERRORS? 


i725 O0060Se 100002 BPL 3$ ;BRANCH IF NO 


CERES EE Siiis 
SRMBSERE Dace 


ne a oe 
or 
= 


ae 


oro 


ae 


012767 
004567 


3766 
16767 
004767 


012767 


017636 
017602 
017620 
004000 


000015 
017510 


100000 


002000 
177366 


000003 
173019 


017446 
173066 
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017610 
011726 
011722 


017544 
017514 


017520 
172632 


017504 
017544 


017456 


177570 


017466 


173276 


acne -APR- 


#% TEST 2 ### 


3$: 


S$: 


4§: 
2s: 


1$: 


103 


te 3% is PAGE 33 


$ 

JINBUF , CYLINDER 
CYLINDER, EXPS 
SINBUF RECS 
#811, ARPOS 


2 
#15, IRPCS 
aRPts 


4 

: 1S, dRPOS 
#ADT32,LAD 
WORK4 

1$ 

WORK3 

oe aeee 
WORKe 
WORK4Y 
WORK3, CYLINDER 
WORKe 

#810, a8SWR 
RADT3 


.SBTTL #44%% TEST 3 #4444 


s THIS op OUTINE yen teres Eee WR 
; THE AB 


;ERROR AFTER READING ONE WORD 
; COMPARE DATA READ AGAINST CYLINDER 
EQUAL 


A4AO-s4OWCc 
O8%S 


RECT DAT 
;DATA COMPARE ERROR-PROBABLY WENT 
THE WRONG CYLINDER 
i SEEK INCOMPLETE ERROR? 


RANCH IF NO 
ISSUE A HOME COMMAND 
;WAIT FOR DONE 


;WAIT FOR UNIT READY 
;SETUP LOOP 

; INC - DEC FLAG 
;UPDATE LOW COUNT 
;SET DECREMENT FLAG 


oor ge HIGH COUNT 
;CLEAR FLAG 


;DONE YET 

: BRA NCH-NO 
:LOOP ON TEST? 
‘OES 


ie FUE THE REN AND 


a T alt 


WR CHECK K PORT TION 
FLOATING ZERO PATTERNS ARE UxeD 
LOGIC AND TO VERIFY THAT A 


‘IS WRITTEN. IN THE WRITE 
;ELORTING ONE 
!T0 TEST THE COMPARE 
“WRITE CHECK ERROR BILL OCCUR. 
WRCK: MOV #3, TESTNO 
ISR RS‘ PRINTS 
MES 
MOV TESTNO TTY 
JSR PRINTS 
CLR ME 
RWRCK: JSR PC, INIT 
JSR RS; DSKNOS 
CLR cy YEINDER 
CLR 
CLR <0. 
MOV 
MOV Whutour BUF 
MOV #400, WROCT 


;PRINT MESSAGE 


; TYPE LOCATION-SUPRESS ZEROS a 

; CLEAR EXTENDED MEMORY BITS IN CONTROLER 
; INITIALIZE 

SELECT UNIT 


;PATTERN FLAG 


: SETUP WORDCOUNT 


ee ee ae 


a3 DORI tae ay Rl OUTBUF (R2) ATE TEST PATTERN 

1762 BRERIG Guoues cess DY Hate Paes 

1785 006346 022702 000400 CHP #400, R2 : HAS SUFFER BEEN FILLED? 

1 RES BBIELE case i rucr HNP AE 

1788 000003 .WORD 3 

1789 006362 105777 017252 STB aRPcs sWAIT FOR DONE 

5 1 herbal 490358 017244 Ss JRPCS : ANY DEVICE ERRORS? 

1792 006374 100002 BPL 2s : BRANCH 

1733 0063 378 Ao4400 HLT - : ERROR AFTER WRITING ONE SECTOR 

1 

1795 OOb4De DO4sb/ 006574 25: JSR RS, FUNCT sWRITE CHECK THE DATA 

1730 06419 108777 017224 : STB aRpcs ;WAIT FOR DONE 

1799 006416 bos73 017216 TST SRPCS ANY DEVICE ERRORS? 

1800 O06422 100012 BPL 4§ ; BRANCH IF NO 

1801 O06424 104400 HLT ‘ERROR AFTER WRITE CHECK OPERATION 
1802 OO06426 O04S67 172632 JSR RS, PRINTS PRINT MESSAGE 

1808 Ob se O42 172676 ISR PC, .PRINTR TYPE LOCATION WITH LEADING ZEROS 
a eee Beit om eat, HEOGEEN * OE 

1809 006454 Weir CLR Re ‘FILL BUFFER WITH ONES 

1810 OO64S6 O12762 177777 O25762 21%: MOV #177777, OUTBUF (R2) 

1811 OO6464 005722 TST (Re)+ 

1812 OO06466 Oee70e 00400 CMP #400, R2 

iat Geewrs Soh ae 

1815 006476 oosod2 20$: CLR Ro 

1816 O06500 O050b¢ 025762 S$: CUR OUTBUF (Re) :CLEAR OUTPUT BUFFER 

1818 O06 022702 oo0400 CMP #400, Re sENTIRE BUFFER CLEAR? 

1819 006512 001372 BNE !BRANCH IF 

1820 006514 OO04S67 OD6462 22: JSR RS, FUNCT WRITE CHECK THE DATA AND 

1821 006520 000007 “WORD =? EXPECT AN ERROR 

1822 OObSe? 108777 017112 STB aRPCS :WAIT FOR DONE 

1824 006530 e777 000010 917120 BIT #83, ORPER 1S MRITE, CHE CHECK ERROR SET? 

1826 006540 104400 HLT : WRITE CHECK CB RROR DID NOT SET 
1827 O06542 OO4S67 172516 JSR RS, PRINTS :PRINT MESSAGE 

1828 DOS Y6 De4o70 MES1O 

1 10167 173006 MOV R1, TTY > 4 
1830 Ooe5s4 004767 172564 ISR PC, * PRINTR TYPE LOCATION WITH LEADING ZEROS 
163 pppeee eae 017052 6S: TST SRPCS :DID ERROR F FLAG SET” 


M :BRANCH IF YES 
1e34 Boeera 1BS4B6 AL :ERROR FLAG DID NOT SET AFTER WRITE CHECK ERROR 
1 


000400 3$ 
oe 006574 012767 006336 172200 3%: MOV #23$, LAD ;SETUP LOOP ADOR 
637 O06602 104000 SCOPE 


fn 


BEADS "ELLOUAI DRSS, NAEUY! 27008) SRSGPEETT aIyND, PACE 25 


1838 006604 005700 1ST —-RO ;ARE WE FLOATING A ONE? 
tig nat 13 f 95 !BRANCH IF 

1841 t Oeil ORL ; ROTATE rae 

1842 OO66L4 es Bs 10s !BRANCH IF COMPLETE 

1844 Bbeese os Arar 10$: MOV ‘#1, RO “SET PATTERN FLAG 

1845 lero 077777 MOV -#097777,R1 'SET NEW PATTERN IN RI 

1846 006632 177500 . InP 238 

tBua Boba Best! Ree ky SROTATE FLOATING ZERO PATTERN 
1849 OObb42 052701 100000 BIS #B1S. RI 

1850 OO6646 103002 Bcc 3s PATFIL ;HAS ZERO BEEN FLOATED 

1851 O086S0 000167 177462 IMP 235 JUMP IF NO 

ied 

1855 :CHECK THE ABILITY OF THE RP1IC TO CLEAR THE REMAINDER OF A SECTOR 
1856 'ON A PARTIAL WRITE OPERATION. A SECTOR OF ALL ONES IS WRITTEN AND 
1857 ;THEN @ TWO WORD WRITE OPERATION. IS PERFORMED. THE SECTOR IS. THEN 
1988 'READ BACK AND VERIFIED. THE FIRST TWO WORDS SHOULD BE ONES AND 
1858 'THE REST SHOULD BE ZEROS. 

1861 OO6654Y 012701 o25762 PATFIL: MOV —-&0 

iBe2 ObebeO B1S7HH p5E595 MOV 8177777; Ra RO 

1B63 006664 Ol2702 ooD400 MOV 

1864 006670 01002! 1$: MOV RO. orale SGENERATE ALL ONES PATTERN 

1865 006672 005302 DEC ~—O «aR 

1866 006674 001375 BNE «18 

1867 006676 004567 006300 POR ORE. FUNCT SWRITE SECTOR WITH ONES 

1868 006702 000003 WORD (3 

1869 006704 105777 016730 TSTB ARPCS sWAIT FOR DONE 

et Oberle OSS oie72e ey CARPCS :ANY DEVICE ERRORS 

187 oie fobaoe BPL sé 'BRANCH IF NO 

1873 006720 104400 HLT SERROR AFTER WRITING ONE SECTOR ALL :°S 
tere Bpe75q 899373 nanone oiczue as: Boy #3 uroct :SETUP FOR TWO WORD WRITE 

1876 006732 004567 006244 JSR —_—-RS' FUNCT tWRITE TWO WORD 

1877 006736 000003 “WORD 3 

1878 906740 105777 O16674 TSTB so ORPCS ;WAIT FOR DONE 

187 744 100375 ag cer” 

1880 006746 005777 o16666 TST ARCS SANY ERRORS? 

1881 006752 100002 BPL CGS 'BRANCH IF NO 

1886 OO6754 1044 HLT TERROR ON ONE WORD WRITE 

i g 3$ 

ie ee fice, amy ome we: anueeet yc 

1 2 WORD 

1Be? BpeS7a SRE? oseyo ?s1B aRPCS :WAIT FOR DONE 

1888 007000 100375 BPL 

1889 007002 005777 o16632 rst aRPCS SANY ERRORS 

1890 007006 100006 BPLti‘éGSS ‘BRANCH IF NO 

1891 007010 104400 HLT ZERROR AFTER READING ONE SECTO 

1892 007012 032777 O4OD00 olBbeD BIT  #B14, RPCS "WAS IT A DATA ERROR” 

1893 007020 001401 BE Stié‘SS TBRANCH IF YES 


RP1LIC + eer TEST MACY11 27(1006) 29-APR-77 14:49 PAGE 36 
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3 
Bee BA5BSS 08323 177777 016730 SS: ERP af 77777, OUTBUF ;COMPARE FIRST WORD SHOULD BE ONES 
896 1410 6$ ;BRANCH IF OK 


1 007032 4 BEQ 
tise forme flere bicsis BIBS =| BY SUTRAS 

183g Rae Ros 401 HLT +1 ;DATA COMPARE ERROR ON FIRST 
1900 0070S2 000417 - BR 3$ “WORD READ 

1301 0070S4 012700 025766 6$: nov BOUTBLF +4, RO 

138 4 pier oh 8S: TST (RO)4+ ;REMAINDER OF SECTOR SHOULD BE CLEAR 
1904 007066 001003 BNE 7$ ‘BRANCH IF NO 

1905 007070 005301 DEC R1 

1906 007072 001374 BNE at 

1907 007074 O00406 BR 3$ 

1908 007076 O16067 177776 010722 7S: MOV =2(RO), RECS 

1909 007104 905067 010714 CLR EXP$ 

1910 007110 104401 HLT +] ;DATA FOUND Me AREA OF SECTOR 
1311 ;HHICH. SHOULD HAVE geen CLEARED 
1913 112 012767 OO6654 171662 3$: MOV #PATFIL,LAD SET “uP OOP DOOR 

1914 007120 104000 SCOPE 

He 

1ai8 CHECK THE SETTING OF EOP WHEN TRYING TO WRITE BEYOND 

1918 THE LIMITS OF THE PACK. THE FIRST SECTOR OF THE PACK IS 

191 ‘WRITTEN WITH ZEROS. THEN A TWO SECTOR WRITE OF ALL 

i :ONE’S IS neon TS oe CYLI NOER G25, He AO 23, wo aSECTOR a: 

1366 sBOF ang ERR EB T Bee BuRE IT IS a ie 2PRS. 

1924 007122 O0S067 oO165Se2 EOPTST: CLR DMA ;CLEAR DISK ADDRESS 

1925 007126 005067 016544 CLR CYLINDER 

1926 007132 012767 OOO0400 016534 MOV #400, WROCT ;SET WORDCOUNT TO ONE SECTOR 
1927 007140 012767 025762 O16540 MOV BOUTBUF BUF :SETUP OUTPUT BUFFER 

1928 007146 o0S001 CLR Ri 

1929 007150 005061 025762 1S: CLR QUTBUF (RI) ;CLEAR THE OUTPUT BUFFER 

1930 7154 9057¢1 TST (RL 

1931 0071 900400 CMP #400,R1 

1932 007162 001372 BNE 1$ 

1933 007164 004567 006012 JSR RS, FUNCT :WRITE SECTOR ZERO WITH ZERCS 
1934 007170 900003 .WORD 3 

1935 007172 105777 Ol6442 TSTB = ARPCS ;WAIT FOR DONE 

1936 007176 100375 BPL .- 

1937 007200 005777 016434 TST JRPCS sANY DEVICE ERRORS 

1938 007204 100002 BPL 2$ : BRANCH 

1939 206 104400 HLT *ERROR AFTER WRITING SECTOR ZERO WITH ZEROS 
1940 007210 o00S0e BR 3$ 

1941 O072l2 012767 OO1000 016454 2S: MOV #1000, WROCT ~SET WORDCOUNT EQUAL TO TWO SECTORS 
1942 20 012767 000625 016450 MOV #625, CYLINDE® ; SELECT CYLINDER 625 

1gug 07259 $1e7e7 poDDeS Bledd? eT seELECT EGO oa" 

1945 007242 Ole702 177777 MOV 8177777, Re 

tguy Bo75e8 { 025762 4$ Sb Re OUTBUF(R1) ;SET OUTPUT BUFFER TO ONES 

1948 007254 piosst TST (RL)+ 

1949 007256 022701 001000 CMP #1000,R1 


BE Abbe py POT ae abRee TAESL! 


— 


wal sida ab A a ad ap 


= bp pe he Be pp bb hb be he 


Sisk 


1973 


1982 


BeRRES 


SERRA RRS SSCS EE 


Bones 


SS 
a 


007262 
bo79d 
007272 


76 
007502 


007504 
007512 
007514 


001372 


104401 


012767 
104000 


Oe 
104400 


005712 
016342 
000002 


100000 


000002 
016336 
016330 
005630 
016260 


016252 


016362 
010420 


010410 


007122 


oo00cs 
016136 
002000 


27( 1006) 


016350 


016316 


016336 


010424 


171356 


016204 


Olb22e 


016142 


016144 


MOS 


oN SETBAPIE Mo scr 


;D1D EOP ap FLAG SET’ 
B H IF SET 


co ERROR FLAG DID NOT SET WHEN 
WRITE OPERATOR yee THE PACK 

‘DID THE ERROR FLAG SET? 

BRANCH IF SET 

a BRON DID NOT SET AFTER GENERATING 


;CLEAR THE DISK ADDRESS 


;READ THE FIRST SECTOR OF THE PACK 
AND EXPECT TO FIND ZEROS 
;WAIT FOR READY 


;WERE THERE ANY ERRORS’ 


; BRANCH IF NO 
ENCOUNTERED ON 2 pe READ 

‘OF FIRST SECTOR ON THE PACK 

; GET FIRST WORD OF BUFFER 

;D0ES 1ST SECTOR STILL CONTAIN ZEROS” 

:BRANCH IF YES 


: CONTENTS OF THE FIRST SECTOR OF THE 
CHANGED AFTER FORCING EOP 

ERROR OPERATION PROBABLY 

WRAPPED AROUND. 


i CHECK THE ABILITY OF THE RP11C TO GENERATE A 
;PROGRAM ERROR IF _A COMMAND IS ISSUED WHILE THE 


afdee Geet 3’ dices PO 
rn ns FUNCT 
SR ,FU 
. WORD . 
STB aRPCS 
er #81, ORPER 
BNE S$ 
HLT 
BR 3$ 
S$: BIT #815, JRPCS 
BNE 6$ 
HLT 
BR 3$ 
6S: MOV #2, WROCT 
CLR DMA 
€LR CYLINDER 
JSR RS, FUNCT 
.WORD «S 
TSTB aRPCS 
BPL 
TST SRPCS 
BPL 7$ 
HLT 
BR 3$ 
7$: MOV OUTBUF , RECS 
TST RECS 
BEQ 3$ 
CLR EXP 
HLT +1 
3S: MOV #EOPTST,LAD 
SCOPE 
:CONTROLLER IS BUSY. 
LOKOUT: MOV #1, IRPCS 
CLR CYLINDER 
CLR DMA 
MOV #2000, WROCT 
JSR RS, FUNCT 
.WORD «5S 
MOV #100,RO 
1S: DEC RO 
BNE 1% 
MOVB is JRPCS 
TSTB aRPCS 
BPL “4 
BIT #810, IRPER 
BNE 2$ 
HLT 


;CLEAR THE CONTROLLER 
;CLEAR THE DISK ADDRESS 


; SETUP WORDCOUNT 
UE A READ COMMAND TO GET THE 
CONTROLLER BUSY 


;ALLOW THE OPERATION TO PROCEDE AWHILE 


; ISSUE READ COMMAND WHILE BUSY 
:WAIT FOR DONE 


;DID Ane ERROR SET? 
i BRANCH ET 

PROGRAM ERROR DID NOT SET WHEN A 
TREAD COMMAND WAS ISSUED WHILE 


ROAbGE BL JABILIZY TEST, WACK}! 27¢1006) So OPRECe sine CE aN 03 


_ 


ee ee ee ee ee ee any 
WONMUI£CWreO 


as 


007532 
007540 


ered 


one 


012767 
104000 


012767 


100000 


007426 


016012 
016004 


005334 
015764 
015756 


040000 
000001 
010112 


o0000e 
000006 


007542 


016112 


171242 


016070 


016120 


016060 


015744 
010120 
025762 


010066 


171032 


;THE DEVICE WAS BUSY 


3 
2s: BF 38 1s, aRPCS :DID THE ERROR FLAG SET? 
BNE 3$ BRANCH IF SET 
HLT ‘ERROR FLAG DID NOT SET AFTER 
‘PROGRAM ERROR 
38: MOV #LOKOUT, LAD 
SCOPE 
; UNFORMAT THE ub TRS SECTOR 0 ON THE PACK. THEN READ IT 
?AQND VERIFY THAT RE WRI TE HEADER OPERATIONS W Ate 
: TRANSFER Sata CORRECTLY. NOW THAT THE HEADER IS MIS FORMATTED, 
TISSUE A WRITE COMMAND TO SECTOR ZERO. THIS SHOULD RESULT 
IN SETTING HEADER NOT FOUND. THEN REFORMAT SECTOR ZERO. 
HNFCK: MOV #1, IRPCS ;CLEAR THE CONTROLLER 
CLR CYLINDER CLEAR DISK ADDR 
MOV SOUTBUF , BUF ;SETUP BUFFER ADDR 
MOV BOUTBUF RO 
MOV RO)4+ 
MOV i° (ROD 
MOV #1, (RO)+ 
MOV #3; WROCT ;LOAD WORDCOUNT 
JSR RS; FUNCT ISSUE WRITE HEADER, COMMAND 
.WORD 14003 :TO MI SFORMAT SEC R ZERO 
ISTB JRPCS ‘WAIT FOR 
TST JRPCS sANY ERRORS? 
BPL rt} BRANCH IF NO 
HLT ERROR AFTER ISSUING A WRITE 
« “a :FORMAT COMMAND TO SECTOR ZERO 
1S: JSR RS, FUNCT s ISSUE READ HEADER COMMAND 
“WORD 14005 :T0 SECTOR ZERO 
ISTE JRPCS ‘WAIT FOR READY 
TST JRPCS BNY ERRORS” 
BPL 3$ ? BRANCH H IF 
HLT s ERROR WILE READING THE HEADER 
;0N SECTOR ZERO 
BIT #814, IRPCS ‘HARD ERROR? 
BNE ‘BRANCH IF YES 
3S: HOV il, ,EXPS ;EXPECTED RESULT 
Ss: CMP EXP$,OUTBUF(RO) ;CHECK DATA READ BACK 
BNE ay BRANCH ON NON COMPARE 
ADD #2, RO ‘UPDATE MODIFIER 
_ CMP #6, RO :END OF BUFFER? 
BNE cs" 
BR 2g 
4S: MOV OUTBUF(RO),RECS ;GET BAD DATA 
HLT +3 ‘DATA DID NOT VERIFY AFTER READING 
:THE HEADER OF SECTOR ZERO 
23: MOY BHNFCK, LAD 


BO4 
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ZRPBE.P11 eenae TEST 3 #0888 

007750 SCOPE 
ope5 007752 bose oos224 HNF1: JSR RS, FUNCT sISSUE WRITE TO SACTOR ZERO 
Spee rites dhs, Bpe003 — AR RO 
ob 00776 2s: INC RO ;TIMEQUT SETTING OF DONE 

4 1 015650 TSTB = ARPCS !DID DONE SET’ 

2068 007770 100414 BMI 1$ 
2063 007772 005237 025746 INC aacyLa 
2070 007776 005237 025746 INC aacyLA 
2071 010002 005337 025746 DEC aacYLA 
2072 010008 005337 O2S746 DEC dacYLA 
2073 010012 005700 TST RO ; TIMEOUT? 
2074 010014 001362 BNE 25 BRANCH IF NO 
2075 O10016 104400 HLT ‘TIMED OUT WHILE WAITING FOR DONE 
2076 !AFTER TRYING TO FORCE R NOT FOUND 
2077 010020 000427 BR 
2078 010022 032777 O10000 015620 1S: BIT #812, IRPDS :DID HEACER NOT FOUND SET? 
2073 010030 00100e NE !BRANCH IF YES 
2080 010032 104400 HLT ‘HEADER NOT FOUND DID NOT SET 
2081 010034 O00421 BR 3$ 
2082 010036 032777 O40000 9O1SS74 &S: BIT #2814, IRPCS DID HARD ERROR SET? 
2083 O10044 001002 BNE ug ‘BRANCH IF YES 
2084 01004 104400 HLT HARD ERROR NOT SET AFTER HNF 
2085 O100SO 000413 BR 3 
2088 010052 032777 100000 O1SSED 4S: BIT #815, IRPCS ;DID THE ERROR BIT SET? 
2087 010060 001002 BNE S$ ‘BRANCH IF YES 
2088 010062 104400 HLT [ERROR DID NOT SET AFTER HNF 
2089 010064 Oo040s BR 3 
2090 010066 o00001 o1ss62 SS: BIT #80, IRPER :DID DISK ERROR SET? 
2091 010074 001001 BNE 3S !BRANCH IF YES 
2092 010076 104400 HLT :DISK ERROR DID NOT SET AFTER HNF 
2993 010100 012767 007752 170674 23S: MOV SHNF 1, LAD 
2094 10106 104000 SCOPE 
2095 019110 Ooso00 HNF2: CLR RO 
20% O10112 005060 025762 18: CLR OUTBUF (RO) AR BUFFER 
2097 O10116 062700 o9d0002 ADD #2,R0 CBSATE MODIFIER 
2098 O10l22 Ge 000006 CMP #6/RO ENTIRE BUFFER CLEARED? 
2099 010126 001371 BNE 1$ ‘BRANCH IF NO 
2100 010130 012767 o00003 015526 MOV 83, WROCT :LOAD WORD COUN 
2101 010136 004567 O0S040 JSR RS ‘FUNCT ISSUE WRITE UEADER COMMAND 
2102 010142 9614003 .WORD 14003 
2103 010144 105777 015470 TSTB = ARPCS :WAIT FOR READY 
2104 6101SO 100375 BPL all 
210S 010152 005777 o1s462 TST JRPCS ANY ERRORS? 
2106 910156 100001 BPL 2s ‘ : 
2197 010160 104400 HLT ERROR WHILE TRYING TO FORMAT SECTOR ZERO 
2108 Ol0l62 012767 O1O110 170612 e2$: MOV #HNF 2 , LAD 
2103 619170 104000 SCOPE 
2111 ; ISSUE A SEEK COMMAND AND WAIT FOR DONE TO SET. THEN ISSUE A WRITE 
elle MMAND WHILE THE HEADS ARE STILL MOVING. THE RP1IC SHOULD 
e113 ‘FOLD THE WRITE COMMAND TILL THE SEEK IS COMPLETE. 
c 
2115 010172 012777 000001 OISY4O SKTST: MOV 81, 9RPCS :CLEAR THE CONTROLLER 
2116 019200 OO4SE7 906432 JSR RS’ OSKNOS SELECT THE UNIT 
2117 610204 905077 c1sH40 CLR RECA CLEAR THE CYLINDER ADDR REGISTER 


o 


rorurerorupororurururulfururulrurururvururulfururfurururvrfulrurururulrurulrvurfurururfurururururufururururururfurururururu fu 
0+ b= 88 he bb SNREPCININETAENEUMA EE oe ee ee we Mibisiahastaatdiaiadhatushanarahahahehanaheneees es 
INAISSEVE RIGOR SSSR RLOW HL GSH VFHESHASZSBVRRAECREBBSURRPOWL VSG | 
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PIL» 29-APR-77 14:41 eeeee TEST 3 eeeee 
et ee 112777 OaOrT O1S416 ay ¥ cs fete ans tee oo 
pidety ier? pel Move Saba gRP hemes 
6 SAS 100000 o1s422 1S art 9815 aRPOS uael FOR UMIT READY 
bi RSe re ai Q ig 
SiS OLE OR CI le CREAT EUTOEE ocean 
pitsee thESes B0OSeA Rove id AgrP ISS SE 
GIES 100 oro ouseey = YS ich gues weno cou 
ses il 45003 015342 MOVB 83, aRPCS PEE A WRITE WHILE HEADS ARE MOVUNG 
010276 105777 015336 TSTB = ARCS ‘WAIT FOR DONE 
010302 100375 BPL <4 
010304 005777 015330 TST JRPCS sANY ERRORS” 
010319 100001 BPL 2s H IF NO 
010312 104400 HLT ‘ERROR FOUND AFTER ISSUING A WRITE 
!COMMAND WHILE THE HEADS ARE STILL 
!MOVING AFTER A SEEK. 
010314 032777 OO04N00 CiS336 2S: BIT #811, dRPDS !SEEK INCOMPLETE ERROR? 
010322 O01412 BEQ 3$ "BRANCH IF NO 
010324 112777 000015 015306 MOVB 815. aRPCS ISSUE A HOME COMMAND 
010332 105777 015302 TSTB 2s ae :WAIT FOR DONE 
010336 100375 BPL “4 
010340 032777 100000 015312 4S: BIT #815, aRPOS ;WAIT FOR UNIT READY 
010346 001774 BEQ 4 
010350 012767 010172 170424 3S: MOV #SKTST, LAD 
010356 104000 SCOPE 
CHECK THE ABILITY OF CLEAR TO TERMINATE AN OPERATION 
:AND SET READY. 
010360 004567 o062S2 CLRTST: JSR RS, DSKNOS ;SELECT THE UNIT 
010364 005067 015310 CLR DMA :CLEAR DISK ADDR 
010370 005067 0:5302 CLR CYLINDER 
010374 012767 O00001 015272 MOV #1. WROCT :SETUP WORD COUNT 
010402 012767 O2S76e 015276 MOV sOUTBUF , BUF :SETUP BUFFER ADDR 
010410 7 OO4S66 JSR RS, FUNCT :ISSUE A WRITE COMMAND 
010414 000003 .WORD 3 
010416 012700 000170 MOV #190,R0 
010422 005300 1S: DEC RO ;WAIT A WHILE THEN ISSUE A 
010424 001376 BNE 1$ 
O10426 112777 o00001 015204 MOVB #1, aRPCS ‘CLEAR THE CONTROLLER 
010434 105777 015200 TSTB 3s DRPCS 1S 
610440 100401 BMI 2$ ‘ARANEH I 
010442 104400 HLT : READY "gl Me SET AFTER ISSUING 
'@ CLEAR COMMAND DURING A WRITE 
010444 900005 25: RESET 
010446 032767 000100 015210 BIT #86, FLAG : TEST FOR MEM. MGR. 
010468 90190e BNE $ :BRAN CH MEM. MGR IS OFF 
1 005237 177572 INC aeSRO TURN ON MEM. MGR. 
010462 012767 O10360 170312 38: MOV 8CLRTST,LAD 
010470 104000 SCOPE 
010472 O16767 O1Si6& 015234 MOV FLAG, WORK .GET UNIT NUMBER 
O19S00 000241 CLC 
010502 O06067 015226 ROR WORK 


DOY 
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Pll 29-APR-77 14:41 eeeee TEST 3 seee8 

2174 010506 006067 015222 ROR WORK 

2175 010812 ? 015216 SWAB 2S WORK : JUSTIFY UNIT NUMBER 
2178 010516 Bie?e? 174 015210 BIC 8174377 ,HORK LEAR UNWANTED BITS 

¢ 

5iee pipes; ree oi5e04 33 TST aRPOS {LORD UNIT Ta oF EADY 
21739 010536 100375 BPL “4 

2180 O10S40 032737 O02000 177570 BIT #810, d8SWR ;LOOP ON TEST? 

2181 O10546 901402 BEG MEMTST ‘BRANCH IF NO 

2182 O10550 oO001&7 175520 IMP RWRCK 


8 


a 


BBESRRLOWLSSSGRRIS Meo 


rurururururururururururufrurururururu 
TU be bb bb 0 0 0 be = 0 


BS 


OOKOOOOVOOOOVOOOVOOOOOKO OOOO KOKO OOO K000O0OK00 OOK0000000 


furu 
8 
bn be be be be ee Be Be me be ee Be ee be be be be be be be Be be be be be ee ee ee 


rerururrerurarurary 
Sh SRB GRRE 


‘om 
—r 


I 
i 
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-77 


a 
2 


012767 
004 


aa 


ss 
Bg 


FERS Seen 


SRR 
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Stevdua sasnansnes 


Sekoaa 
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14:41 


004208 
014630 


015146 


170764 


aE 


015072 


015020 


014764 
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seaee TEST 4 seen 


.SBTTL #eee8 TEST 4 #0088 


DUS NPE RSLS 


;UTILIZI 


tHe END OF 


: FROM THE He PROGRAM T 
5 (NOT TO EXCEED FFien bes IS WRITTEN i ‘ Me erER 


AIS bs WRITT 


REA? Me Tho, ng Oat 


MEMTST: MOV 


1$: 
RMEMT: 


1$: 


-WORD 3 


#4, TESTNO 
RS; PRINTS 


TESTNO TTY 
PRIATS 

e100 PASSC 

#500, FLAG 

8-30, PASSC 

PC INIT 

#86 FLAG 


12 
sOUTBUF 


1 
sOUTBUF , BUF 
DMA 


CYLINDER 
RS, FUNCT 


ours 
SRP CS 
+} 


3 
WROCT, RO 
eouTeLF, R} 


ROL 

10$ 

RS, FUNCT 
aRPCS 
4 


SIBILITY TY OF ENO it rout 


TOP OF ONEMORY 


me 


D Reno Back ate VERTED, 


;PRINT MESSAGE 


; TYPE LOCATION-SUPRESS ZEROS 

: SETUP peat TOS COUNT NO MEM. MANAG. 

:BK WITH MEM. MANAG. OR NO MEM. MANAG.” 
; IF MEMORY MANAGEMENT DO ONLY 24 PASSES 
:CLEAR DRIVE EXTENDED MEMORY SITS 
: INIT JA lee 


:ME MENT? 

:YES 60 DO MEMORY MANAGEMENT TEST 
GET TOP OF CORE 

:DETERMINE SIZE OF BUFFER IN 8YTES 


; CONVERT TO _ WORDS 
;KEEP NUMBER EVEN 
:SAVE WORD COUNT OF TRANSFER 


;GENERATE A PATTERN SO THAT EACH 
:LOCATION CONTAINS ITS ADDRESS 


;HAS ENTIRE PATTERN BEEN GENERATED” 
;BRANCH IF_N 

;SET UP BUFFER ADDR 

;WRITE ADDRESS PATTERN 


;WAIT FOR DONE 


;ANY ERRORS? 
:BRANCH IF NO 
;ERROR AFTER WRITING ADDR PATTE 


;CLEAR THE BUFFER 


;READ ADDRESS PATTERN 
:WAIT FOR DONE 


RP1IiC RELIABILITY TEST MACY11 27(1005) 29-APR-77 14:49 PAGE 43 
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DZRPBE.P11 eeeee TEST 4 sees 

3239 911012 777 O14622 TST aRPCS :ANY ERRORS? 

11016 1 BPL 4§ : H IF NO 
2241 011020 104400 HLT :ERROR AFTER READING ADDR PATTERN 
2242 O11e¢ 777 O4000O 014610 BIT #914, @RPCS ‘IS THIS A DATA ERROR? 
243 «(O11 1401 BEQ 4 !BRANCH IF YES 
011032 0004 gR 3$ 

2245 O11034 Ol2702 o25762 4§: MOV sOUTBUF , R2 

2246 O11040 010203 MOV R2,R3 ;COMPARE THE ADDR PATTERN 
ge? b110Me ee 6S: CMP R3, (Re)+ :IS DATA CORRECT? 

S5ug OLONe DUSTER PFO) tigen 

- > 

2250 6 18 7? 010672 CMP R2,MEMSIZ :IS ENTIRE BUFFER VERIFIED? 
2251 011054 101772 i BLOS ~=«s«é&S “BRANCH IF NO 

2252 011056 BR 

253 911960 010367 006749 S$: MOV R3, EXPS 

2254 011084 016267 17777E 006734 MOV -2tR2), RECS 

2255 011972 104401 HLT +] ;COMPARE ERROR UTILIZING ADDR PATTERN 
2256 011074 012767 010672 167700 38: MOV #73, LAD ‘SETUP LOOP ADD 

2257 011102 104000 SCOPE 

2258 011104 000527 BR NONEX :G0 DO REST OF TEST 

2260 : THIS PORTION IS FOR MEMORY MANAGEMENT 

2262 O11106 032767 OOO4O0 O14SSO RMMEMT: BIT #88, FLAG :8K MACHINE? 

2263 011114 001254 BNE MEMBK ‘BR IF YES 

2264 O11116 767 010660 ISR PC, PARINT SINITALIZE KIPARS 

2265 Olll22 004767 019744 1S: JSR PC’ PARINC : INCREMENT KIPARS 

2266 O11126 767 010770 JSR PC’ PARREG ; GENERATE "MEX" "BUF" “WROCT” 
2267 O11132 012700 940000 S$: MOV #40000, RO :STARTING ADDRESS OF BUFFER 
2268 011136 016701 914532 MOV WROCT, RL :GET BUFFER SIZE 

2269 011142 610010 2s: MOV RO. (RO) :MOVE ADDRESS TO LOCATION 
2270 011144 005720 TST (RO) + :SUMP LOCATION 

2271 911146 005301 DEC R1 ; 

2272 O11150 001374 BNE 2$ :BR IF NO 

2273 O11152 O0S067 oO:4S22 CLR OMA 

2274 O11156 005067 014514 CLR CYLINDER 

2275 Olllé2 904567 OO4014 ISR RS, FUNCT :WRITER ADDRESS PATTERN 
2276 O11166 900003 .WORD 3 

2277 011170 105777 oO14444 TSTB = ARPCS :WAIT FOR DONE 

Ee Be BEE cus ae a Eg 

2 : 

2280 bt 1478 100005 BPL 33 :BR IF N 

2281 O112eC4 104400 HLT ‘ERROR WRITTING ADDRESS PATTERN 
2282 011206 012767 O11132 167566 MOV #5$,LAD ‘SETUP LOOP ADDRESS 

2283 011214 104000 SCOPE 

2284 Ollel6 012700 oyo0c0 33: MOV #49000, RO :START OF BUFFER 

2285 Oll222 O16701 O14446 MOV WROCT,R1 ‘BUFFER SIZE 

2286 01 1¢e6 005020 4$: CLR (RO}+ :CLEAR BUFFER 

2287 911230 00530: SEC R1 : DONE? 

2288 O1i232 001375 BNE 4g :BR IF NO 

2289 011234 004567 003742 6S: ISR RS, FUNCT ‘READ THE ADDRESS PATTERN 
2290 011240 o00005 -WORD) 5 

2291 Olle42 105777 014372 TSTB = ARPCS sWAIT FOR DONE 

2e9e OLLS4E 100375 SPL 4 

2293 011250 005777 014264 TST DRPCS :ANY ERRORS 

2294 911254 190011 BP_ 7g :BR IF NO 


~, 
. 


ly 


ll eeeee TEST 4 #88ee 

2295 011256 1044 HLT :DISK ERR 
gee 011260 032777 o40000 014352 BIT #814, dRPCS ‘bata. Enwor” 

97 Cll 001404 BEQ 7$ :BR IF YES 
2298 011270 012767 011234 167504 MOV #6$, LAD :SETUP LOOP ADDRESS 
2299 Oi ie7® 04900 SCOPE 
2300 Oll 01 040000 7$: MOV #40000, RO ;START OF BUFFER 
2301 011304 016701 014364 MOV WROCT,R1 ‘BUFFER SIZE 
2302 911319 01900¢ qs: MOV R 
2303 01131 2002 CMP (RO)+,R2 ;DATA GOOD? 
2304 011314 001004 BNE 8$ :BR IF DATA NO GOOD 
2305 011316 005722 TST (R2)+ 
5303 Bilao cr § BR te 

ll 1 g :BR IF NO 
2308 011324 0004:3 Es igs ‘CONTINUE THE TST 
2309 011326 010267 006472 9S: MOV 2. EXPS 
2310 011332 014067 006470 MOV af RECS 
2311 011336 104405 HLT +5 ;DATA COMPARE ERROR 
2312 O11340 012767 011310 167434 MOV #3$, LAD :SETUP LOOP ADDRESS 
2313 011346 104000 SCOPE 
2314 011350 005720 TST (RO)+ i TEST REST OF BUFFER 
2315 011352 000756 BR 33 : TEST MORE 
2316 011354 03e767 O01000 014302 108: SIT #89, FLAG ‘LAST PAGE? 
2317 O11362 001657 BEQ -BR IF NO 
e318 sCHECK THE SETTING OF NON EXISTENT MEMORY FLAG IN RPER. 
2320 011364 032767 000100 9014272 NONEX: BIT #86 FLAG :IS MEMORY MANAGEMENT ON? 
2321 011372 001002 BNE 4§ :BR IF NOT ON 
232 O11374 7 ir7sre CLR aeSRO IF ON T 
e3e3 011400 012767 OOOD0l O14e6E 4S: MOV #1, WROCT :SETUP WORD COUNT 
2324 011406 012767 160000 Ol4e72 MOV #160000 BUF :LOAD ADDR TO FORCE NON EX MEMORY 
2325 011414 004567 003562 ISR RS. FUNCT :TSSUE A WRITE COMMAND AND 
2326 011420 000063 .WORD 63 :EXPECT NON EX MEMORY 
2327 Oll42e 105777 o14e212 TSTB aRPCS {WAIT FOR READY 
23208 611426 100375 BPL 
2329 011430 032777 oO00004 014220 BIT 422, JRPER :DID NON EX MEMORY SET 
2330 011436 001002 BNE 1$ :BRANCH I 
2331 011440 104400 HLT =NON EX MEMORY DID NOT SET 
2232 011442 000413 BR 2$ 
2333 O1iaas 2777 O40000 O41 15: BIT #814, IRPCS :DID HARD ERROR SET ON NON EX MEMORY 
2334 011452 O0100e BNE 3$ : BRANCH 
2335 O114S4 104400 HLT 'HARD ERROR BID NOT SET 
2236 011458 000405 BR 2$ k pu 
337 O11 032 100000 O141S52 238: BIT 8215, DRPCS ;DID THE ERROR FLAG SET AFTER NON EX MEMORY 

2338 O11466 001001 BNE 2g “BRANCH IF SET 
2329 011470 104400 HLT “ERROR FLAG DID NOT SET 
2240 011472 012767 O11400 167302 2%: MOV #4$,LAD 
ea4 011500 104900 SCOPE 
cag i penny MANAGEMENT IS AVAILABLE CHECK THE EXTENDED MEMORY ADDRESS 
ea4s . : 
2246 O11S02 012727 012310 OOD004 EXTTST: MOV #EXTTRE, JBERRVEC :SETUP TIMEOUT TRAP 
2347 O11510 012737 O00340 Socods MOV aPRI7, QKERRVEC+2 
2346 OLIS1E 905737 177572 TST aaSRO IF MEMORY MANAGEMENT IS NOT 


243 'GVAILABLE THE PROGRAM WILL TRAP 
356 AND TRANSFER TO END OF THE TEST 


Bobbie Mey fPOL ALY RSS Pasyt! —— afte Bae Beet 4 


2351 O11Se2 012737 
23$2 011530 
sa SIRS 
SHES Bie 
a 
2387 011564 012737 
e358 011572 012737 
e359 011600 Ole70e 
2360 011604 012737 
2361 Olible 712 
e3be 
e363 
2364 
2365 
£366 
2367 011614 912737 
2368 Olib2e 012737 
e369 011630 Ole7le 
2370 011634 012767 
2371 O11642 005067 
e372 011646 012767 
2373 011654 S67 
2374 011660 3 
e375 
2376 Oll662 105777 
2377 011666 100375 
2378 011670 777 
2379 911674 100002 
2380 011676 104400 
2381 011700 000447 
se BI Be 
a gH fhe 
2385 011714 00441 
2386 011716 O050le 
2387 011720 004567 
2388 011724 
2389 011726 777 
2390 011732 100375 
2391 011734 
2392 O11740 1 
2393 011742 104400 
2394 911744 O004eS 
2395 011746 032777 
29 aioe art 
32 US Bi 
corr Braces ate: 
SH fils ae 
oo pp iy 
4 
oe SE Bs 
e#0S O1e006 032777 
2406 932014 00140) 


o00c20 


003256 
013706 
013700 


o0cd20 


177777 


177777 
006024 


000040 


172356 


1 
172316 
177572 


172344 
000004 


014032 
014032 


013730 


006026 


013624 


7$: 


. WORD 


1$: 


33: 
. WORD 


4$: 


ss: 


6$: 


14:49 PAGE 45 
SERRE 


#7600, 38KIPAR7 ;OPEN 1/0 REGISTERS 
dak IPARO : FREE FIRST ak 
8200, oak IF ‘ENABLE SECOND 4K 
w400#256 . “OD+UP +b, 24K PDORO  ;SET KIPORO=RW UP 400 BLOCKS 
#400%256.-400+UP+RW, a8KIPDRI § ;SET KIPORI=RW UP 400 BLOCKS 
#400#256.. -400+UP+RW , sk POR :SET KIPDRe=RW UP 400 BLOCKS 
#400#256.. -400+UP+RW, a8KI ‘SET KIPOR7=RW UP 400 BLOCKS 
Heer TE ee OR HERORY PARC MENT 
(R2) :CHECK IF MEMORY EXISTS TO ALLOW 

: TESTING HE EXTENED, ADORE ADDRESS BITS 

:IN THE RPLIC. MEMORY 


#2000, d#KIPAR2 
#EXTRP, JBERRVEC 
#177777, (Re) 
#2, WROCT 
MEX 
Tyee SUF 
unct 
aRPCS 


Pe 

JRPCS 

1$ 

2s 

#84, aRPCS 
3$ 


(R2) 
RS, FUNCT 
JRPCS 
JRPCS 

4g 


2$ 
#B4, aRPCS 
S$ 


2$ 

ital aman 
6177777,ExPS 
(R2 | 


),REC 


~ 
e 
#85, dRPCS 
2g 


“EXISTS, A TIME-OUT TRAP MLL OCCUR AND 
s TharER CONTROL TO THE END OF THIS 


;SET_UP ‘5 THE EXTENDED poets TESTS 
;RESTORE TIME-OUT TRAP VECT 
INSERT PATTERN INTO SOUB00 


SETUP WORDCOUN 
CLEAR EXTENDED MEMORY SITS FOR CONTROLER 


;WRITE Y WORDS ON DISK. RPBA 
; START hares TO FORCE CARRY 


WAIT FOR READY 


tRCING MEX ERROR AFTER 2 WORD WRITE 


HAVE SET? 
ee ae 
:MEXO DID NOT SET 


sC ERR LOCATION 200009 = 
;READ TWO WORDS INTO LOCATIONS 
5127777, oe 200000. 

:WAIT FOR READY 


;ANY ERRORS? 
BRANCH IF NO 
;ERROR OFTER READING 2 WORDS 


;D1D es = 
; BRANCH 


REA O10 NOT SET re Tee 2 WORD 


WAS DATA READ INTO L SCATION 
‘300000 CORRECTLY? - BRANCH IF YES 


;DATA COMPARE ERROR AT 200000 

F RECEIVED=0 - toch 26h BSN" *T ACCESSED 
:MEX1 SHOULD BE et 

:BRANCH IF CLEAR 


2 


o 
3 
Ro 


‘ym 
at 


ae% 
0000000 0000 


at at ot at at a a a 2 
00D NOU © Uufue- 2 
SIS RRE DRESS 


teen Dh oe = 


Pee eee Pye 
“SB BURRS 


OOO 000 OOODBOOO0O000GOOD ONOVO00O000000 


eb be bh he he Fh be ps bs be he ph he Be 


b= b+ b= b= b= bb 


Sends2h8 RRs rNSsws 


rururorurorureruroruror ror oo rurururorororor 
wn 
<= 


bb pe bs bs pe pe pee >< b= pb bs pe 


Ro BN SSR 


fororer 
_ 
ia) 


Olee2e 


032777 
Toa400 


000167 


ABILITY TEST MACYLI 
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o0c04C 


003042 
013472 
013464 


000020 


177777 
177777 
095610 


000040 


Ole04e 


O13446 


176352 
002000 


176336 


27( 1006) 


166754 
172344 


013632 


013530 


013514 


013450 


0056 le 


013410 


166540 


177570 


29-APR-77 
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eeeee TEST 4 sede 


es: 
EXTTIL: 
73: 


. WORD 


4§: 


S$: 


10$: 
. WORD 


118: 


12$: 


6$: 


2s: 


EXTEND: 


1$: 


#7$,LAD 


#4000 , d#K IPAR2 


fieaent 1 oP 


aes 
aRPCS 
4g 


2s 
#84, aRPCS 
S$ 
es 
#8S,aRPCS 
10$ 


rd 

(R2) 

RS, FUNCT 

ous 

aRPcs 
118 


2s 
#84, aRPCS 
les 


es 
8177777, (Re) 
#177777 ,EXPS 


(R2), RECS 
+ 


2 
#BS,dRPCS 
2s 


#7$,LAD 


EXTRP 
PASSC 

1$ 

RMEMT 

#810, a8SWR 
DATAt 
RMEMT 


;CLEAR LOCATION 400000 
;READ TWO WORDS STARTING AT 37 


;WAIT FOR READY 
;ANY ERRORS? 


BRANCH IF NO 
ERROR WHILE READING TWO WORDS 


DENI Te Ren oo NOT BE 
HTSGERT PAT eRe 1 tRfO 48C ooo0 


;WAIT FOR READY 


Y ERRORS? 
‘BRANCH IF NO 


;ERROR AFTER READING 2 WORDS 
;DID 1 A a 


ANCH IF YES 
: MEXO DID NOT CLEAR oe 
;READ STARTING AT 377 
:DID MEX1 SET? 
:BRANCH IF YES 
:MEX1 DI NOT SET WITH A TWO WORD 
TRANSFER STARTING AT 377777 


WORD 


Cte ted 
i¢é 


;DID MEXO CLEAR? 
;BRANCH IF Y yes 
; MEXO DID NOT CLEAR al 2 WORD 
STARTING = m 777 
eee 400000 


ara READ 
WSK’? AccesseD 


HBS BETA - 
pare COMPARE ERROR AT 
WORD TRANSFER 


ECEIVED=0 - LOCRTION 


DID MEX1 SET? 


;MEX1 DID NOT T. - ica 
STARTING AT 377 
:SETUP ERROR 7b0P 


:CLEAR MEMORY MANAGEMENT 
; INCREMENT ITERATION COUNT 


;LOOP ON TEST? 


SEAMS. PEL FABILITY JEST. macyis 271006) 


2463 
eve 012874 767 900100 013362 
sige 177572 
Fer Ree Bee ee og 
oe fines ee 
1] 747 
247] 
2472 
2473 
5454 
475 
D475 
3477 
2479 
3479 
2480 
348] 
24B2 
2483 
2484 012330 012767 oOD000S 013372 
P48S 012336 OO4S67 166722 
24GB Ole342 023766 
2487 012344 016767 013360 167210 
2488 Ole3S2 004767 167000 
2489 012356 005067 013372 
2490 Olesb2 005067 007362 
2491 012366 016700 013312 
Sia3 Isard A 
Sgt bisa7e Biba? 177570 
e495 Ole402 00067 013270 
S325 BtSd98 177776 
2498 012420 016767 13264 013246 
Scag Bisdse BiSo5% Btasis Bia6d0 
2501 Ole442 032767 000500 013214 
2502 012450 001006 
2503 O1e%5e 004767 007324 
2504 O12e456 o00240 
2505 012460 000240 
2506 Ole462 004767 007434 
2507 Ole466 004767 OO4414 
2508 Ole472 032767 OOOSOO 013164 
2509 012500 001403 
2510 Ql2s0e Ole767 96762 013176 
3511 612510 032767 O40000 O13i46 
2512 012516 001426 
Sei3 piseey ppase? posi ze 
Sete 15250 Bouse? pOSuue 
2516 012534 000103 
3517 012536 032737 OL0000 177570 
2518 O12544 901002 


29-APR-77 14:49 PAGE 47 
eanee TEST 4 senate 


EXTRP: aa ac Be TP 2 add MANAGEMENT ” 


‘ T OFF 
RESTORE STACK 


EXTTRP: MOV #STKPTR, SP 
MOV : 
XTEND 
.SBTTL ####% TEST HEHEHE 
TE, WR K READ OPERATIONS ARE PERF DRIVE 
ithe bare ie Firsh bRiTYEN Ao THEN ioe CHECKED. a Sue Bate 
ei MOesdR READ a* ISSUED ob 29 THE Paratts IS COM PARED BILE cL ERED 
115 I SS. THIS 15 DONE TO iMPROVE EFFICIENCY. THIS SEQUE 
15 REPEATED FOR THE ENTI FACE EACH OF THE 22 PATTERNS 
ERRORS OCCURING USING RANDOM SEEKS DURING THE WRITE CHECK 
REC COVERABLE AFTER FIRST RETRY DURING READ OR ARE ELIMINATED BY 
:DISABLINGING RANDOM SEEKS ARE PROBABLY DUE TO VIBRATING HEADS 
!AFTER A SEEK. 
DATAT: MOV #5, TESTNO 
JSR RS’ PRINTS ;PRINT MESSAGE 
MOV TESTNO, TTY 
35 PCP PRINTS s TYPE LOCATION-SUPRESS_ ZEROS 
LR MEX ‘CLEAR XTENDED MEMORY BITS IN CONTROLER 
RDATAT: HOV PATNU, RO 2GET PATTERN N 
R R 
SOV RO, aaSwR sDISPLAY PATTERN NO. IN USE 
CLR CYLINDER 
MOV #PRI4, JaPSW sENABLE INT SYSTEM 
MOV SWROCT, WROCT 
MOV BOKINT ay CTOR ;SETUP DISK VECTOR 
MOV 8340, STATUS . 
BIT #500, FLAG :8K WITH MEM. MANAG. OR NO MEM. MANAG 
JSR Pa PARINT se tee oe KIPARS 
NOP ;NEEDED FOR CONFORMITY 
DATP Teh Pe? PACEL’ GenenarepatTeRn ‘waft 
"Bit 0500, FLAG : BK MANAG. OR NO MEM. MANAG? 
BEQ ‘BR IF "NOT TRUE 
MOV sOuTEUF BUF iSET UP BUFFER ADDR 
1$: BIT FLAG WRITE? 
BEQ igte BRANCH H IF NO 
LDAT: JSR PC, OPDSEL ANY OPERATOR BODR PARAMETERS? 
JSR PC’ SEEK :G A RA K 
oa 15k RS‘ FUNCT ‘WRITE WITH INTERRUPTS 
_ aly #812, 2uSWR :DETERMINE HOW TO WAIT FOR INT 
N 1 


a 
- 


PEALE REL JABILIZY TES]. MACY}! 27(1006) ,69-8PR=77 14:49, PAGE 48 


2519 012546 004767 007514 JSR PC, NPR ;GENERATE WORSE CASE NPR CYCLES 
2520 012552 000401 BR 2g 
e550 O1S58e ie A 012520 166216 Ae: HOV. 8LDAT, LAD ;SETUP LOOP ADDR 
2504 O1e5b6 004767 003434 JSR PC DISBUF :PREPARE NEW DISK ADDR 
5268 Spr 767 O20000 913062 WRICK: BIT #813, FLAG WRITE CHECK? 
i 767 360 3$ Bed Oe POSEL Sean ay OR PARAMETERS? 
e585 Gigbi9 Ooackr 366 JSR RE’ PURCT !WRITE CHECK THE DATA 
12614 0001 .WORD 107 
2531 Ol2b16 032737 010000 177570 BIT #812, aeSWR sDETERMINE HOW TO WAIT FOR INT 
e535 blebs. Bare? 007434 i PE NPR ;GENERATE WORSE CASE NPR CYCLES 
2535 012634 000001 1S: WAIT 
2536 012636 012767 012604 166136 2%: HOV #3$, LAD :SETUP LOOP ADDR 
nee bpaoe 003354 JSR PC, DISBUF ;PREPARE NEW DISK ADDR 
2539 012652 4 BR 
e540 O1eb54 032767 010000 013002 DREAD: BIT #812,FLAG sREAO® . 
S243 Biseed BORTe? oo0444 Me OORT TOON EROUND ’ READ 
2543 012670 032767 OOOSOO 012766 1S: BIT #500, FLAG 8K WITH MEM MANAG. OR NO MEM MANAG. 
2544 012676 001006 BNE R : BR IF TRUE 
2545 012700 004767 007076 JSR PC, PARINT ‘INITALIZE KIPARS NEEDED 
2546 012704 O00240 NOP ‘FOR CONFORMITY 
2547 012706 0002040 NOP 
2548 012710 004767 ISR PC, PARREG :SETUP “BUF”, WRDCT”, “MEX” 
2549 012714 7 013034 READI: CLR cnta tINITALIZE READ COUNTER 
2550 012720 7? 013000 ESH: CLR DERR ; CLEAR READ ERROR COUN 
2551 ble7es 767 003240 JSR PC, OPDSEL ;ANY OPERATOR BOQR CERAME TERS? 
2552 (Ol 767 732 JSR C’ SEEK :G A M SEEK 
2553 012734 005067 171552 OSKRD: CLR INTFLG :CLEAR THE INTERRUPT FLAG 
2554 012740 004567 236 JSR RS, FUNCT :READ THE DATA 
2555 O1e744 O0010S .WoRD 105 
2556 012746 032737 901000 177570 BIT #89, d8SWR ; COMPARE DATA? 
2557 012754 001411 BEQ “BRANCH IF YES 
2558 012756 737 010000 177570 BIT #812, JeSWR ‘DETERMINE HOW TO WAI? FOR INT 
2559 ble76H 901003 BNE 
2560 012766 767 007274 JSR C,NPR :GENERATE WORSE CASE NPR CYCLES 
2561 012772 900447 BR . 3$ 
2562 012774 OO0001 2s: WAIT 
Baa b1¢776 000445 BR 3$ 
2564 Ol 016700 012670 1S: MOY WROCT RO :CLEAR THE INPUT BUFFER 
2565 013004 012702 000020 MOV Re 
2566 013010 012701 025762 MOV sOUTBUF BE ‘ 
2567 013014 03°76 012642 BIT #300, FLAG :8K WITH MEM. MANAG. OR NO MEM. MANAG. 
2568 013022 001002 BNE BR IF TRUE 
2569 013024 012701 oyoD00 MOV #0000, RI :START OF MEM. MANAG. OUT BUFF 
2570 013030 700 4g: TST RO ‘orer WORD COUNT IS IT AT ZERO? 
2571 013032 100422 BMI 10$ BR IF CLEAR IS FINISHED 
2572 013034 00S0e1 CLR (R1)+ 
2572 013036 005021 CLR (Rl )+ 
2574 013040 90502) CLR (RI )+ 


REAAS REL LABILITY Tish. t ral 27( 1006) ake 
2575 013042 005021 

o& Bt pons! 

78 Ol He051 
2579 013052 005021 

Bi aoe poest 
ao 

2584 013064 005021 
2585 013066 005021 
See? D130 
ee ee ee 
25390 B13108 004767 004750 10$: 
2S391 013104 105777 012530 
25392 013110 100375 
2eS33 Ol3lle 767 166122 3$: 
2S3S O13116 001424 
2595 013120 005267 012600 
259% 013124 022767 O000e4 012572 
2597 O13132 001416 
2598 013134 022767 OO000l2 012562 
S00 Oa 112777 o124e6 
Seor Braice iheoss BPSRES 
2602 013156 100375 
2603 Tete 005777 012474 
Sebe Bi aiee 
2606 013170 005767 012530 Ss: 
2607 013174 001417 
2608 O13176 022767 000013 012520 
2609 013204 003 
spi0 013206 012767 oO00002 012540 

11 013214 9S: 
2612 013214 OO4SE7 166044 
cols 013220 ace 4 

14 Ol32ee2 016767 012476 166332 
er tea ie He 
seis Bt 35a 12767 BiS780 165534 
2618 013246 104 
2619 013250 012500 
2620 013254 022767 000003 012472 
ebel Ol3e62 001216 
2be2 013264 032767 O00SO0 012372 
2623 013272 001012 
2624 013274 032767 O01000 0123te 
ebeS 013302 001402 
2626 013304 004767 006472 
2627 013310 004767 O06S5SE 7$: 
2628 013314 004767 006602 
2629 013320 004767 002702 BS: 
2630 013324 000401 


awe 77 


* TEST S ## 
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RES 


6 
#11. ,RDERR 


#2,CNTA 
RS, PRINTS 
RDERR, TTY 
PC. PRINTS 
RDERR 
#ESH, LAD 
CNTA 

#3, CNTA 
ESH 

#500, FLAG 
#89, FLAG 
7$ 


PC’ DISBUF 
118 


;DECREMENT WORD COUNT 


;COMPARE THE DATA 
;WAIT FOR READY 


;WERE THERE ANY ERRORS 
BRANCH IF Me 

UPDATE ERROR COUN 

;MORE THAN 20 ERRORS? 


;BRANCH IF YES 
1S LS iy ERROR? 
oy 16 es 


;WAIT FOR READY 


WAS READ ERROR STILL THERE AFTER A RECALL 
:YES DON’T TRY TO READ AGAIN UNLESS LOOPING 
;PRINT MESSAGE 

: TYPE LOCATION-SUPRESS ZEROS 

CLEAR READ ERROR COUNTER 

:LOOP ADOR 

s INCREMENT READ COUNTER 

; DONE 3 READS? 


NO 
i pga MANAG. OR NO MEM. MANAG. 
;LAST Pace TRANSFERED? 


60 REINTIALIZE KIPARS 


2631 


BRE 


013326 


ieee 


Sosss2cg92902 
ERR uct 


SERRE cane es: 


a 
ro 


PEAS eat 


pine 
tj 


OOD OOOO OOS OOOO OOOH OK0O0O0OOKB0 000000 


bist bs bh bb be be bb he eb eh bh be bp 


Www 
ro 
££ 
Loam = 
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67 177360 
67 haoba0 012322 
i 
sae 
50! 4po iE ati 
100002 
000167 001034 
062767 OO00002 912314 
Oee767 000036 012306 
001402 
000167 176762 
005067 012274 . 
032737 OO02000 177570 
001402 
000167 176742 
012767 OOO00B 012276 
67 165626 
023766 
016767 012264 166114 
004767 165704 
ee 
767 Masia 012174 
onan 
000240 
000240 
12767 012174 
012767 175300 Oleede 
012737 0200 177776 
012767 700 Olel4e2 
016767 012136 012174 
012701 025762 
032767 osoo Olelie 
001002 
012701 o40000 
004767 003430 
004767 165774 
Biever iepoe p15t38 
042767 1770 615136 
022767 000625 012114 
one 7 bd 
16767 012106 O120% 
e767 160360 012100 
122767 000010 012072 
101003 
042767 000010 Oledbe 


- 4:4 
abdee eS s* these PE SS 


sLOOPING ON AN OPERATOR ADDR? 
NO CONTINUE 

; YES 

;UNDER PROGRAM CONTROL 

: OPERATOR PELE TED PATTERN 
!PATTERNS EXCEEDED? 

;NOT YET 

sLAST PATTERN USED 

;LOOP ON ? 

;NO..GO TO RANDOM TEST 

YES 


REE GRAND Re Oe HEGRE TEL SED oh TPOO™ 


BR eR 
11$: JMP READ1 
MSTR: BIT #65 ,FLAG 
BEQ 
1 ATP 
15: ST LAG 
BPL op 
JMP 
2s: ADD -'y Path 
CMP #36,P 
BEQ 
JMP Abarat 
33: CLR PAT 
BIT WB1OL aaSWR 
BEQ RANE X 
JMP BOATAT 
.SBTTL ###2% TEST & 4eeEE 
THIS ISA recighh y 
RANEX: MOV #6, TESTNO 


JSR RS; PRINTS 


MES6 
MOV TESTNO TTY 
JSR C. PRINTS 
RRANEX Sen ne N 
BIT ASOD FLAG 
BNE 
JSR PC, PARINT 
NOP 
NOP 
1$: MOV #34, PATNU 


MOV #-2500, PASSC 
MOV #PRI4, dePSW 
WRLG: MOV #700, WROCT 


MOV WROCT , WORK 

MOV #OUTBUF RI 

BIT #500,FLA 

BNE u§ 

MOV #40000, Ri 
48: ISR PC, RANDOM 


MOV HINUM’ WORK 1 
#177000, WORK 
CMP #625, WORK 


1 
MOV CYLINDER 
BIC TICO3E0- WORK 1 
CPB #10, WORK1 


BIC #10,WORK! 


;PRINT MESSAGE 


; TYPE _LOCATION-SUPRESS ZEROS 
;CLEAR EXTENDED MEMORY BITS IN CONTROLER 


‘BR ae t MANAG. OR NO MEM. MANAG. 
;INITALIZE ALL Plata 
:NEEDED FOR CONFORMITY 


;SET UP PASS COUNT 
;SET UP WORD COUNT TO 1+ SECTOR 


BR aT + # MANAG. OR NO MEM. MANAG.” 
:START OF OUTBUFF WITH MEMORY MANAG. 
;GENERATE RANDOM PATTERN 


;GENERATE TWO RANDOM NOS. 


;FORM RANDOM CYL ALOR 
;SAVE IT 
;FORM RANDOM SECTOR ADDR 


RP11C RELIABILITY TEST aa 27( 1006) 


DZRPBE.P11 29-APR-77 14:4 


013654 


We 
Wee 


oO 
— 
Ww 
“I 
2 


BRET DREEDOD: 


OO0O00N 
£Mo x] 


ECEEECSCL5§CW 
Fiatat=| 


aR 


ee EE EE Em Bunn — bb he 
3 


: 


SSReMeBees 


YOO OOO HOOOO OOO OOOOOO OOO OOOO OOOO O0O0K00OK000000 0000000 
REVSRERSSENORERAD 


bs bb bb bb 0 bb bb BP = be bb be hb he he 


SELES ESSC SESS SCSC SLL 
ee ee ee 


x 
oO 


122767 
10 


000023 


see 


001736 
001246 
010000 
006314 


013700 
001210 
010000 
006256 


013766 


be 
000500 
040000 


011762 


177570 


165016 


177570 


164760 


011570 
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eeeee TEST & #HdR# 


2s: 


3$: 
RANLOP: 


. WORD 


155: 


LR LE LRN LRN LR LLL LR LALOR LORE 


#23, WORK1+1 
;FORM RANDOM HEAD ADDR 
ee a 
;SAVE DESK ADDR. 
sate? : SETUP SUTPUT BUFFER 
1 ITH MEM. MANAG. OR NO MEM. MANAG. ? 
0, BUF TART TEU BUFFER WITH MEMORY MANAG. 
#4000, ; 
RS, FUNCT ‘WRITE DAT 
i BABE INTERRUPTS 
4812, 24SUR ETERMINE HOW TO WAIT FOR INT 
BC, NPR ;TEST WORSE CASE NPR CYCLES 
#RANLOP , LAD ;SETUP LOOP ADDR 
RS, FUNCT ;WRITE CHECK THE DATA AND 
“ENABLE INTERRUPT 
#812, J#SWR ‘HOM TO WAIT FOR INT? 
PC, , NPR ;TEST WORSE CASE NPR CYCLES 
#73, LAD ;SETUP LOOP ADDR 
CNTA ; INITALIZE READ COUNTER 
RDERR ; CLEAR READ ERROR COUNTER 
PC, SEEK D0 A RANDOM SEEK 
INtFLG 
RS, FUNCT “READ RANDOM DATA AND 
‘ENABLE INTERRUPT 
4700, RO :SET UP TO CLEAR INPUT BUFFER 
SaUTBUF R1 ;START_OF INPUT BUFFER 
#500, FLAG Bk WITH MEN. MANAG. OR NO MEM MANAG? 
#40000, R1 ‘START OF OUTBUF WITH MEM. MANAG. 
R1)+ 
R1l)+ 
R1)+ 
R1)+ 
R1)+ 
RI )+ 
R1)+ 
R1)+ 
R1)+ 
R1)+ 
Ri)+ 
R1)}+ 
Ri)+ 
R1)+ 
R1)+ 
R1l)+ 


RP1IC RELIABIL 
OZRPBE .P11 


2743 
2744 
745 


ere 


2 


014142 
0 


014410 
0i441le 


OL44i6 
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sigs 


BEF 
a 


oe 


Sica 


a 


14 


010000 


17704C 


011eSé 


177570 


177570 
011434 


011472 
011462 
011366 


011420 
011440 


165232 


164434 


011372 


177570 


BOS 
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SUB R2,R0 sDECREMENT THE WORD COUNT 
BNE 15$ G0 CL HORE 
BIT $12, 20SHR ‘HOW TO WAIT FOR INT? 
ISR PC, sTEST WORSE CASE NPR CYCLES 
33: wart 
6S: 81 #89, a8SWR ; COMPARE FOR ERRORS? 
BNE 9$ BRANCH IF NO 
BIT 8814, ARPCS : ? 
BNE 9$ : H IF YES 
ISR PC, COMPARE ‘COMPARE DATA FOR ERRORS 
QS: TST ERRFLG READ ERROR? 
BEQ 10$ :BRANCH IF NO 
INC RDERR :UPDATE ERROR COUNT 
CMP #20. ,ROERR :20 ERRORS YET? 
BEQ 10$ !BRANCH IF YES 
CMP $10. , RDERR IS THIS TENTH ERROR? 
BNE 11$ :BRANCH IF NO 
MOVB 815, aRPCS ISSUE HOME COMMAND 
1378 aRPCS ‘WAIT FOR DONE 
TST BRPDS :WAIT FOR READT 
BPL “4 
oR 11$ 
10S: TST RDERR 
BEQ 218 
CMP #11. ,ROERR :DID RECALL HELP RECOVERY 
BGE 14 :BR Y 
sn MOV #9. ,.CNTA =NO, DON’T TRY REMDING AGAIN 
JSR RS, PRINTS :PRINT MESSAGE 
MOV RDERR, TTY 
JSR PC PRINTS : TYPE LOCATION-SUPRESS ZEROS 
218: CLR RDERR CLEAR READ ERROR COUNTER 
HOV : #8$, LAD :SET UP LOOP ADOR 
INC NTA s INCREMENT READ COUNTER 
CMP #10. ,CNTA ‘DONE 10 DISK READS? 
BNE 9$ :BR IF NO 
INC PASSC : INCREMENT PASS COUNT 
BEQ 128 :BRANCH IF DONE 
JMP WRLG : CONT INUE 
12S: CLR PATNU 
BIT #810, a8SWR sLOOP ON TEST? 
BEQ MUL CHK :N 
IMP RRANEX :LOOP 


;CHECK FOR MULTI DISK MODE 


;IF IN MULTI DISK MODE REPORT “END” 
;1F LAST DISK ON SYSTEM HAS BEEN 
; EXERCISED. 


MULCHK: CLR OMA 


A 
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DZRPBE.P11 29-APR-77 14:41 eeeee TEST & #8848 
2799 givuze 005067 011250 CLR CYLINDER ;CLEAR ADDRESS REGISTERS 
2800 O144 767 004000 011230 BIT #811, FLAG !ARE WE IN MULTI DISK MODE 
2801 O144 1422 BEQ REPOEN ; REPORT “EN 
sere leon Bere (HAs Oe yet aT ES ot itren 
Say Biaues GoEse> biiece Liss BAS aK DSKNOR fae END 
2805 O14N60 1004 BNE INORVE 
gB08 1 767 000034 011174 IC 834, FLAG 

014470 O00404 REPOE ;REPORT “END” LAST DISK 
2808 O14472 062767 O00004 011164 INDRVE: ADD #4, FLAG SINC. NO. 
2809 O14S00 O00426 gs EXtPP :EXERCISE DISK 
2810 O14502 O0S267 164272 REPOEN: INC ICNT i INCREMENT PASS COUNTER 
2811 O14506 004567 164552 JSR RS, PRINTS :PRINT MESSAGE 
esi2 O14Sl2 023576 MES1 :REPORT END OF PASS 
2813 O14514 016767 164260 165040 MOV ICNT, TTY 
2814 O14522 004767 164630 JSR PC, PRINTS ; TYPE LOCATION-SUPRESS ZEROS 
2815 014526 013701 oo004e2 MOV ae42, RI :GET MONIT OR RETURN ADORESS 
2816 014532 001411 BEG EXTPP : BRANCH H IF NOT UNDER MONITOR 
2817 014534 ? 000100 011122 BIT #86. FLAG : 
2818 O14S42 001401 BEQ MEXiT :YES , "ay PASS RESET 
22819 014544 9 0000S RESET 
2820 O14546 O04711 MEXIT: JSR PC, (RL) sEXIT TO THE MONITOR 
2821 014550 900240 NOP 
2822 014552 900040 
2923 014554 900040 NOP : 
case O14SS6 OO0l167 168775 EXTPP: IMP ADTST ;RECYCLE 


RPLIC ti ee Uo a 27(1006) 29-APR-77 14:49 PAGE SY 


DZRPBE .P 29-APR-77 14: eenee TEST 7 eee 

gee? .SBTTL seeee TEST 7 eueee 

sesg TEST THE E ABILITY Eo THE RPLiC TO SENSE POWER FAILURE 
ar a OV INDE NOER SS IS TESTED D FOR Pane SOFTER TYPING THE MESSAGE 
2832 t RERUESTING Power 10 ee rire THE PROGRAA GOES INTO 

:@ LOOP READING oerer BOER Te IS RESTORED 

2834 !MEMORY IS Se KED in "ee? iat THE DISK DID NOT PUT ANY 
oB38 JUNK INTO MEMORY WHILE POWER WAS GOING DOWN. 

2837 

2838 014562 012706 000500 PFTST: MOV aSTKPTR, SP 

2839 014566 Ole767 015152 163230 MOV #PFD. 24° ;SET UP POWER FAIL VECTOR 
2840 014574 012767 000340 1632c4 MOV ePRI?. 26 : LOCKOUT INTER’ RUPT S 

2841 014602 002030 JSR RS. DSKNOS :SELECT THE UNIT 

2e42 014606 012777 000625 011034 MOV #625, IRPCA : SELECT CYEINOER 625 
2843 014614 000011 O11916 BIS #11, aRPCS ‘ISSUE SEEK COMMAND 

2844 014622 012700 025762 MOV #0U ae - 
2e4S 014626 012720 025252 1$: MOV #25252, (RO)+  ;FILL MEMORY WITH CHECKERBOARD 
2846 014632 ? 005110 CMP RO, MEMSIZ : PATTERN 

2847 014636 101773 BLOoS )6=s«1S 

2848 014640 012767 000625 011030 MOV 8625, CYLINDER 

2849 01464 005067 011026 CLR DMA 

se tisees Glee, eee BRS RY RAPE 

2852 Bt aeee 105777 010746 TSTB aRFCS :WAIT FOR DONE 

2853 014672 100375 BPL 

2854 014674 005777 010760 TST 3RPDS sWAIT FOR UNIT READY 
2855 014700 100375 BPL - nit 
2856 014702 004567 000274 JSR RS, FUNCT sWRITE 1 SECTOR OF CHECKERBOARD 
2857 014706 000003 .WORD 3 

2958 014710 105777 010724 TSTB = ARPCS ;WAIT FOR READY 

2859 014714 100375 BPL a 

C14716 032777 100000 9010714 BIT #815, 9RPCS :ANY ERRORS? 

2861 614724 OO1401 BEQ 2$ - 
2862 014726 104400 HLT sDEVICE ERROR ON WRITE 
2863 014730 012767 O14Sb2 164044 25: MOV #PFTST.LAD 

2864 014736 104000 SCOPE 

2865 014740 OO4S67 164320 JSR RS, PRINTS :PRINT MESSAGE 7 
2866 014744 023720 MESS "HAVE POWER TURNED OFF 
2867 014746 O04S67 000230 38: JSR RS, FUNCT °G0 INTO A LOOP READING 
2868 014752 o0000S “WORD «S :THE DISK SURFACE 

2869 014754 105777 CI1OGEO TSTB = ARCS 

2870 014760 100375 BPL 4 

e871 014762 000773 BR 3$ 

2873 :AFTER MACHINE IS POWERED DOWN AND UP CONTROL 

ea7a :IS TRANSFERRED HERE. 

2876 014764 012777 O00091 O10646 PFTI: MOV #1, IRPCS :CLEAR THE CONTROLLER 
2877 014772 O16767 C1066 010724 MOV FLAG, WORK “GET UNIT NUMBER 

22878 015000 900241 CLC 

2873 015002 006067 010726 ROR WORK 

2680 O15006 O060E7 010722 ROR WORK 

2281 015012 000367 O10716 SWAB = WORK . 

2ese O1S016 042767 174377 O10710 BIC #174377, WORK 


ABILITY TEST MACYL1 27(1006) 29-APR-77 14:49 PAGE SS 
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777 010704 010606 M WORK, IRPCS :SELECT THE UNIT 
es 777 Bier 93 Hey Week 
100352 BPL PFT] 
a ore 010616 131 agucA ;SELECTED CYLINDER SHOULD BE ZERO 
7? 002752 BFR XPS 
S0S2 017767 010604 o02746 HOY @SUCA, RECS area Os wet esse A 
a0be goose? gR 23 : ON Be PA FATLURE 
4 012700 025762 1$: MOV SOUTBUF , RO 
5070 022720 O25e52 4g: CMP w25252,{RO)+  ;DID MEMORY RETAIN PATTERN ON PF 
5074 001004 BNE :BRANCH IF NO 
5076 020067 oo4644 CMP RO, MEMSIZ 
S102 001372 BNE 4g 
5104 o00416 BR 23 
5106 012767 O25252 002710 3$: MOV #25252, EXPS$ 
S114 016067 177776 002704 MOV -2(RO) RECS 
Sl22 104403 HLT +3 : CONTENTS OF MEMORY CHANGED AFTER PF 
S124 OO4S67 164134 ISR RS, PRINTS ‘PRINT MESSAGE 
5130 023703 MESY :PRINT MEMORY LOCATION 
5132 O10067 164424 MOV RO, TTY ? : 
5138 004767 164202 “ ISR PC’ PRINTR : TYPE LOCATION WITH LEADING ZEROS 
Si42 OO4S67 164116 JSR RS, PRINTS :PRINT MESSAGE 
Si46 025625 END :END OF TEST 
5150 o90000 HALT 
;POWER FAIL TRAP HANDLER 


O1SiSe 012767 O15162 162644 PFD: MOV aPFU,24 ;SET UP POWER UP VECTOR 
015160 0600774 BR PFD 
;POWER UP TRAP HANDLER 


l62 012767 000026 162634 PFU: MOV $26, 24 ;SETUP TRAP CATCHER 

170 O0S067 162632 CLR 

74 Ol2706 000500 MOV aSTKPTR, SP ;RESTORE STACK 

200 00067i BR PFT1 :VERIFY POWER DOWN SEQUENCE 
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322 .SBTTL ##*# SUBROUTINES ### 
2924 : THIS ROUTINE OUTPUTS THE FUNCTION FOUND AT 

2927 015202 7? 001430 FUNCT: JSR RS, DSKNOS ;SELECT THE UNIT 

2928 015206 016777 O10466 010436 MOV DMA. JRPDA ‘SETUP DISK ADOR REG 
e329 b15e14 16777 O104S6 010426 MOV CYLINDER. @RPCA :SETUP CYLINDER ADOR REG 
30 01 16777 O10460 S10416 MOV ‘SETUP BUS ADDR REG 

2931 015230 O16 010440 010406 MOV WROCT , IRPWC ‘SETUP WORD COUNT 

2932 015236 005477 010402 NEG :COMPLIMENT WORD COUNT 
2933 015242 011567 oO00022 MOV (RS). FNCT ;GET RPCS FUNCTION 

2934 015246 062705 de ADD #2, RS !UPDATE RETURN ADDR 

2935 015252 056767 004472 00010 BIS MEK. FNCT 'ADD EXTENDED MEMORY BITS 
2936 015260 056777 900004 010352 BIS FNCT, JRPCS ‘OUTPUT THE FUNCTI 

2937 015266 o0020S RTS RS 

2938 015270 900000 FNCT: 

2939 

2940 

ox ;RP11 DISK INTERRUPT HANDLER 

2943 015272 oO0S067 163742 DKINT: CLR ERRFLG ;CLEAR THE ERROR FLAG 

2944 015276 005 010326 TST aRPCS :TEST FOR ERROR 

2945 015302 100402 BMI 1$ 

2946 015304 O00167 000316 JMP INTEXT ; JUMP IF NO ERRORS 

2947 015310 010667 163724 1%: MOV SP, ERRFLG :SET INTERRUPT ERROR FLAG 

2948 015314 005767 TST RDERR :IS THIS THE FIRST ERROR ATTEMPT? 
2949 915320 001404 BEQ 2$ s BRANCH H IF YES 

2950 015322 032737 o00020 177570 BIT #84, deSwR TYPE ALL ERROR ATTEMPTS? 

2951 015330 001522 BEQ = Ok I ANCH 

292 015332 23: HLT : STATUS ERROR AFTER INTERRUP? 

2953 015334 oo0es2 010276 BIT #81, IRPCS : CHECK 

2954 915242 oO01D12 BNE L ; BRANCH IF WRITTING 

2955S 015344 004567 163714 ISR RS, PRINTS :PRINT MESSA 

2956 015350 024127 MES13 :GIVE # OF READ ATTEMPT 

2957 015352. 016767 O10346 164292 MOV RDERR, TTY : 
2958 015360 004767 163772 JSR PC, PRINTS : TYPE LOCATION-SUPRESS ZEROS 
2353 015364 010667 163650 3S: MOV SP‘ ERRFLG 

2961 015370 017767 010254 000266 DELMES: MOV SRPCA, INTL :GET CYLINDER ADDR 

2%2 015376 017767 010250 o002S6 MOY JRPOA’ INTO :GET HEAD AND SECTOR ADDR 
2963 O15404 042767 160360 000250 BIC #160360,INTO §§ :CLEAR UNWANTED BITS 
294 15412 000001 010236 BIT #80, JRPER :WAS IT AN ADDR ERROR? 
2965 015420 001026 BNE REDAC !BRANCH IF YES 

2966 015422 032767 000017 co0ez2 BIT #17, INTO :1$ SECTOR = 100 

2967 015430 001403 BEO DECTK "YES - BRANCH 

298 015432 367 o00224 DEC INTO :BACK UP COUNT 

2969 015436 000417 BR REDAC 

2970 O1S440 132767 000037 000215 DECTK: 8ITB #37, INTO+! :I1S HEAD = TO 0 

2971 O15446 001406 BEQ pecty YES - {BRANCH 

297 p54 108 ? Q002U7 DECB ss INTO +1 :BACK UP HEAD 

2973 015454 67 000011 ooc20c BIS $11, INTO : SET , 4 cert oR 

2974 O15462 ooo40S BR REDAC 

2975 O1S44 012767 O11411 000170 DECCY: MOV 811411, INTO 

2976 015472 005367 ON01be DEC INT! 

2977 Si5476 REDAC: 


SGA, TRG 271008 


2978 015476 004567 163562 


5756 O21b27 177600 
E7be 100401 


3 
l 6 000154 164050 
1 Q1SSie 767 163640 
2982 015516 005067 O00l4e 
2983 015522 116767 000135 000134 
2984 015530 O04S67 163530 
e985 015534 
2986 015536 016767 OO0Cl2ee 164016 
2987 O1SS44 004767 163606 
2988 015550 116767 000106 000106 
2989 015556 004567 163502 
2990 015562 024164 
S3ah Bt 4 016767 cee 163770 
1 004767 163569 
2993 015576 032777 001000 010054 
2934 015604 901401 
e995 015606 
299% 015610 o02000 010042 
2997 015616 001403 
e398 015620 112777 000015 910012 
2999 015626 105777 010006 
3008 015632 100375 
3001 015634 777 + 010020 
3002 O1S640 100375 
2003 O15642 005767 OO4&4E 
3004 O1S646 001402 
300S QO15650 Qle2716 Oe250e 
3006 QO15654 010667 ibb632 
2007 015660 000 
3008 
3009 015662 000000 
3010 O1S664 06 
3011 
3012 
3013 
3014 
3015 O15666 105737 177570 
3016 QO1567e 100534 
2017 QO15674 004567 000736 
3018 015700 905767 163334 
3019 015704 001031 
3020 015706 062767 123455 010036 
2021 015714 O42767 177900 010030 
3022 015722 O2e767 000625 ciddee 
3023 015730 002766 
3024 015732 016745 010014 
ae Stee ae 007734 
5 55 Bi 744 ey 000290 
01 
O01 
1 
QO} 
1 


~, 
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### SUBROUTINES ### 


JSR RS, PRINTS sPRINT MESSAGE 
S14 :REPORT CYLINDER ADDR 
MOV INTL, TTY 
JSR PC. PRINTS ; TYPE LOCATION-SUPRESS ZEROS 
CLR INTL 
MOVB _—sINTO#1, INT1 
JSR RS, PRINTS :PRINT MESSAGE 
MESIS *REPORT HEAD ADDR OF FAILURE 
MOV INTL, TTY 
JSR PC, PRINTS : TYPE LOCATION-SUPRESS ZEROS 
MOVE _—INTO, INT1 
JSR RS, PRINTS :PRINT MESSAGE 
MESIE :REPORT SEC ADDR OF FAILURE 
MOV INTL, TTY 
JSR PC PRINTS ; TYPE LOCATION-SUPRESS ZEROS 
DKIL: BI 089, JRPDS IS DRIVE UNSAFE? 
HALT : DRIVE UNSAFE 
BIT #810, IRPDS ; SEEK | INCOMPLETE? 
BEQ INTEXT :BRANCH IF COMPLETE 
MOVB 1S. aRPCS : RECALIBRATE 
INTEXT: TSTB  aRPCS 
BPL <4 ;WAIT FOR DONE 
TST JRPDS 
BPL 4 ;WAIT FOR READY A 
TST BCKFLG :DID WE COME FROM BACKGROUND TEST? 
BEQ :BRANCH IF NO 
MOV #NPRRET, (SP) !MODIFY RETURN ADDR 
1S: Mov SP, INTFLG :SET INTERRUPT OCCURRED FLAG 
INTO: 0 
INT1: O 


; THIS ROUTINE IF SWITCH O07 OFF ISSUES A SEEK RANDOM YET NOT DISTROYING 
;THE CYLINDER UNDER TEST 


SEEK: STB aeSWR ; ISSUE A RANDOM SEEK? 
BMI SEEND BR IF_N 
JSR RS. DSKNOS PeELECT™ THE UNIT 
TST ERRFLG !ARE WE LOOPING ON ERR 
BNE 2s :BR IF YES-DO SAME CFER Ras THE ERROR 
1S: ADD #1234SS,SEEK1 GET A RANDON NUMB 
BIC #177000'/SEEK1  :CLEAR OUT UNWANTED CYLINDER BITS 
CMP #625. SEtK] :VALID CYLINDER NUMBER 
BLT 1$ BR IF TOO BIG 
MOV bPeKs -(SP) : PUT NEW CYLINDER ON STACK 
SUB CYLINDER, (SP)  :CREAT A DIFFERANCE ON STACK 
a fe TT ePERANCE BETHEEN 
cM (SP). #200 !1S DIFFERANCE BETWEEN CYLINDER AND RANDOM CYL 
:GREATER THAN 200 CYLINDERS 
PL 8$ :YES, CLEANUP STACK BND CONTINUE 
9g: st (SP )+ NO, CLEAN OFF STACK 
BR 1$ ‘cet NEW CYLINDER RANDOM NUMBER 
7$: CMP (SP), #-200 Si x 
SM] 9g -BR IF DIFFERANCE GRATER THAN 200 CLYINDERS 


HOS 
SCidbe"BALPOUALY TEST, SHEL! 274008) 29° GPHE TT Age DP MOE 52 


3034 015764 000772 ge 95 sDIFFERANCE LESS THAN 200 GET ANCTHER CYL NO 
1 766 7 a5: TST (SP)+ :ELEANOEE STACK 
l 1 907640 : MOV QVECTOR,-(SP) VE VECT 
15774 017746 007636 MOV OSTATUS,-(5P)  ;SAVE PRIORITY 
3038 016000 012777 016166 007626 MOV #SEKDON, AVECTOR :SETUP TRAP FOR RANDOM SEEK 
3039 016006 012777 007622 MOV #340, aSTATUS 
3040 O16014 016777 007732 007626 38: MOV SEEK! IRPCA ;SET RANDOM CYLINDER 
3041 016022 012777 5535 007630 MOV 8-1, JRPDS "CLEAR ATTENTIONS 
3042 016030 042777 000100 9007602 BIC #86. IRPCS ‘CLEAR INTERUPT DONE 
3043 016036 052777 O20011 007574 BIS #20011, aRPCS :SEEK INTERUPT ON ATTENTION 
3044 016044 000001 WAIT 
3045S 01604 005777 007566 TST aRPCS : ERROR? 
3046 9160S2 100035 BFL <3 ; NO NO ERROR 
3047 O16054 104400 HL ISK ERROR DURING RANDOM SEE 
3048 016056 032777 oo4O0D o07S5S4 BIT #811, dRPCS ‘SEEK INCOMPLETE? 
3049 O16064 001006 BNE :BR IF use INCOMPLETE 
3050 016066 772 o01000 007564 git 389, ARPOS 
shes Bi ei mF IROL, DNsare 
3053 016100 O00410 aR 6$ :G0 DO A HOME SEEK 
Shee Bteigs 7 163156 3S: ise RS, PRINTS PRINT MESSAGE 
see Bieios potas meSL4 CEO INOER 
3057 016110 916767 007636 163444 HOV SEEK! TTY ‘ anattan-tapecel ial 
a SS ZERUS 
328 Bteta8 3585 Ag3 iS 007510 &$: MOV aiS,ahrc ibSPE GSke dete 
3060 016130 105777 007504 TSTB 
3061 016134 100375 BPL :WAIT FOR DONE 
3062 016136 005777 007516 TST 3RPDS 
3063 016142 100375 BPL _-4 :WAIT FOR READY 
3064 016144 000723 BR 3$ :TRY SEEK AGAIN 
3665 016146 005777 007506 4$: ist SRPOS uatt FoR Reagr 
3668 pte tes 400375 007456 MOV (SP)+,aSTATUS  :RESTORE TRAPS 
3068 Ol6160 612677 007450 MOV (SP)+, aVECTOR 
3069 O16164 000297 SEEN RTS PC sRETURN FROM RANDOM SEEK 
3070 016166 900902 cE EN: RTI :RANDOM SEEK DONE 
3072 
3073 ;ROUTINE TO SET UP CYLINDER AND DISK ADDRESS FROM 
zm ‘OPERATOR INPUTS DURING CONVERSATION MODE. 
307E O16170 032767 GCODYO 007466 OPDSEL: BIT 88S, FLAG ;USE OPERATOR ADDR? 
3077 016176 001001 BNE +4 
3078 016200 000207 RTS PC NO 
3079 Olee0e 016767 OO7460 ON74E6 MOV SCYL, CYLINDER GET CYLINDER ADDR 
016210 016767 O074S6 907462 MOV SSEC. DMA “GET SECTOR ADDR 
3081 O16216 116767 907446 007455 MOV SHED , OMA+1 :GET HEAD ADDR 
3082 Ol6224 009207 RTS PC 
3083 
3084 
3085 
2086 sROUTINE TO SETUP DISK BUFFERS 
3087 "ADD WORD COUNT T0 STARTING DISK ADDRESSES aaa 
G ADDRESS 


apes :COMPGRE CALCULATED ADDRESS TO TERMINATIN 


105 
SEAde SLLPOULIY RST, MHCAL! 27°20) ,29-GEBETT Age DagP AOE 58 


3090 016226 032767 000040 007430 DISBUF: BIT #85, FLAG :DID OPERATOR SUPPLY ADDR? 
Shas Biesse | BOOMEL ° ate 
1 00461 BUFEXIT sOPERATOR DEFINED DISK ADDR 
3093 016240 004767 900520 ISR PC, BLSZ ‘DEFINE BLOCK SIZE 
sp3e bt PSeo ieee ae Sac INCSEC NOY BLOCK, Wo _ GET DISK 
( $ 

O3E ot PS e5 042767 177760 Coane BIC ereiti WORK  :MASK OUT BOO F OR COUNT 
3097 016266 022767 000011 907440 CMP #11, WORK s CHECK K FOR LAST SECTOR 
3098 016274 0014 BEQ INCSUR iC K SURFA 
3099 016276 007376 INC DMA 1 SECTOR COUN 
3100 016302 005367 007410 DECBLK: DEC BLOCK sf FROM BLOCK COUNT 
3101 016306 001432 BEG CMDAE ‘CMP DMA TO RPDA 
3102 016310 BR INCSEC RECYCLE 
3103 Ol63le 042767 17 007360 INCSUR: BIC #17,DMA TFETCH ADDRESS 
3104 016320 016767 007354 007406 MOV DMA’ WORK 
310S 016326 042767 160377 007400 BIC Bie0377 WORK 
3106 016334 122767 000023 007373 CMPBs«#23,, WORK+1 
2107 016342 001403 BEG SWSUR +1 SURFACE 

198 O16344 105267 007331 INCB OMA+1 !INC HEAD NUMBER 
3109 016350 000754 BR BECBLK : RECYCLE 
3110 016352 005067 007322 SWSUR: CLR OMA ‘CLEAR THE DISK ADDRESS 
site blpses wie eg 007306 ey SE OR SE NOER AST CYL BEEN EXCEEDED’ 

L] Ha, 

3113 ote a36 napa BEQ BuEKtT : BRANCH I F YES 
3114 916272 000743 BR BLK 
2115 :COME HERE AFTER OEE TE RMINING THE STARTING ADDR OF THE NEXT 
3116 ; TRANSFER. NOW CHECK TO SEE THERE IS ENOUGH ROOM ON THE DISK 
$117 : 10 MAKE THE TRANSFER. IF NOT MODIFY THE WORD COUNT FOR THE FINAL 
ae | 
3121 016374 105767 007264 CMDAE: STB FLAG :CHECK FOR LAST DISK BUFFER 
3122 O16400 100015 BPL BUF INX 
3123 016402 005067 007272 BUFEXIT: CLR DMA ;CLEAR ADDRESS BITS 
3124 016406 005067 007264 CLR teri ?CLR CYLINDER REGISTER 
iz pies Feeets oe cad a he :INC STACK POINTER 

i HBSS BYESRS BE BG55d8 MOV ze fifocr 
3128 016432 000500 BR EXIT 
3129 016434 005067 BUFINX: CLR Some :CLEAR BLOCK COUNTER 
3130 1 Ot 767 ss 7266 MOV OMA, WORK 

131 Ol 16767 7 2bb MOV OTT ENDER WORK3 
3132 Oleuss ove76? 16 03 60 007252 as BIC #160360, HORK P 
3} stated ppeses 7244 DEC WORK NEREMENT arith BL HN REQUIRED 
3135 O16472 001460 BEQ EXTDR pet IT IF BLOCK COUNT SATISFIED 
3136 O16474 122767 000011 007232 CMPB al WORK :CHECK THE DISK DOR ESS 13 
3137 O16502 001403 BEQ XINCSUR :SEE IF THERE IS ENOUGH ROOM 
3138 916504 005267 007224 INC WORK 'TO HANDLE THE OUTPUT REQUESTED 
313g pipers OOSOE? 72 XINCSUR x: RB — 

3141 BIEELE 1930s eee 007211 CMPB Wo WORK+1 
3142 016524 001403 BEG 3 

2143 016526 105267 007203 INCB WORK+1 

3144 016532 000752 BR XINCSEC 

2145 016534 905067 007174 18: CLR WORK 
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APR=77 14:4] ##% SUBROUTINES ### 
1 4 767 000625 007174 25, WORK3 W THE LAST CYLINDER? 
aig Bleue BaTGRS UO iBReNCH IP YES 
3148 016550 005267 007166 INC WORK3 
steg Oiteee artes 007156 007110 2s eR WORKS HROCT IF_T 
ate? pipers Baza; CL : aie BE oh 1 Ee Rod? Ne 
3152 016566 006167 007102 ROL WROCT Da QuTPUT ODI FY ate NG 
oe 
sled Bibese BReIES BRR Ret HER EF ORPARE 
3158 016602 006167 007066 ROL WROCT 
tes BieetS Beetes = BoeReE Rot sinc 
016616 006167 007052 ROL WROCT 
sige gieese Qeever Bose ooroao Ae fbr 
3161 ptee 8855 7 EXTDR: Ble Be . sEXIT 
3162 
3163 
3 ee :ROUTINE TO SELECT THE DISK UNIT 
3 6636 016767 007022 907070 DSKNOS: MOV FLAG, WORK sFETCH THE FLAG WORD 
3 016644 006067 007064 ROR WORK 
6650 006067 007060 ROR WORK 
016654 000241 CLC 
016656 000367 007052 SWAB  =—« WORK 
016662 042767 174377 007044 BIC #174377, WORK ;MASK THE DISK NUMBER = 
016670 016777 007040 006742 MOV WORK, JRPCS ‘LOAD THE ADDRESS IN THE ADDRESS REG 
016676 005777 O067S56 TST aRPDS ‘1S THE UNIT READY? 
016702 100401 BMI 1$ ‘BRANCH IF READ 
0167 44 HLT : pe gcTED UNIT NOT READY 
167 02 1S: RTS RS 


; INITIALIZE THE VECTORS 


ae a hs be be ee ee ee eb ee be be ee 


BBBVRR Lo SSS VRRP SH SISA? INA SSSGE 


3 
3 
3 
3 
3 
3 
3 
93 
3 
3 
3 
: 
3 16710 012767 001112 161116 INIT: MOV #ERROR, 34 ;SETUP TRAP VECTOR 
3 Bierie pisebs Booa4 l6llle MOV SERS se 

16724 012767 161076 MOV Iscopes 30 ;SETUP EMT VECTOR 
2 016732 012767 000340 161072 MOV aPRI? 3 
3 016740 012777 015272 OObbEE MOV BOKINT JVECTOR ;SETUP DISK INTERRUPT VECTOR 
3 016746 012777 000340 OObbE2 MOV aPRI7 , @STATUS 
3 016754 012737 O00340 177776 MOV #PRI7, J#PSW ;LOCKOUT INTERRUPTS 
3 016762 000207 RTS PC 
3 
3 : THIS ROUTINE CONVERTS A WORD COUNT TO A BLOCK COUNT 
3 016764 012767 000377 006724 BLSZ: MOV #377 BLOCK ;DRIVE BLOCK SIZE 
3 016772 016767 006676 006734 MOV pct, WORK “FETCH WORD COUNT 
2 017000 036767 006712 006726 BIT Brock’ WORK 
3 017006 001410 BEG RORBL 
3 017010 046767 006702 ODE7IE BIC BLOCK , WORK ;SET UP BLOCK OVERFLOW 
3198 O17016 005267 iret INC LOCK 
31 0170ce O66 767 06670 006704 ADD BLOCK, WORK 

17 367 00670 RORBLK: SWAB WORK 
3201 017034 016767 O06674 cOeESYH MOV WORK , BLOCK :BLOCK COUNT 


- 
< 


BEA ERB {ABILAEY ARS. HQSY}! &7(1008)  So-BEBROGTIAGS eee bl 


3202 017042 000207 RTS PC sEXIT 
3203 

a E THE APPROPRIATE ATTENTION BIT FROM 

ce DBE NT  WUMBER. 

3208 017044 016701 006614 GATTN: MOV FLAG,R1 

3209 017050 006001 ROR R1 

3210 017052 006001 ROR R GET UNIT NUMBER 

3211 017054 O0S06 900014 CLR ATTN 

3212 017060 042701 177770 BIC #177770,R1 ; ISOLATE UNIT 

3213 017064 116167 A TSOoe ooo002 MOVB ATTNB(RI),ATTN :GET ATTENTION BIT 

3214 017072 000207 RTS PC 

3215 

3216 

3217 017074 oD0000 ATTN: O 

3218 017976 001 oo2 004 ATTNB: .BYTE 1,2,4,10,20,40,100,200 

3219 017101 010 020 040 

3220 617104 190 200 

3221 EVEN 

3222 

3223 

3224 

3225 

3226 sROUTINE TO SELECT DATA PATTERNS FOR TEST 

3228 -ENTER FROM JSR PC PASEL 

3229 017106 016700 006572 PASEL: MOV PATNU, RO ;SET UP PATTERN NUMBER 
3230 017112 016767 OO&SSE 006614 MOV WROCT’ WORK : SET 

3231 017120 012701 025762 MOV sOUTBUF RI ‘LOC. OF OUT BUFFER 

3232 017124 032767 O00SO00 o06s32 BIT #500, FLAG ; 8K WITH MEM. MANAG. OR NO MEM. MANAG. 
3233 017132 001002 BNE 1$ ‘BR IF TRUE 

3234 017134 012701 o40000 MOV #40000, R1 ‘START OF MEM. MANAG. BUFFER 
3235 017140 022700 o00034 1S: CMP #34. RO ‘TEST FOR RANDOM DATA NUMBER 
3236 017144 001423 BEQ RANDOM :GO GENERATE R BNDOH DATA 
3237 017146 022700 o00032 CMP #32 ,R0 :IS THIS PATTERN 15 

3238 017152 OO1406 BEQ Patt32 

3239 017154 016021 920030 FILDAT: MOV PATO(O),(1)+ ;FILL BUFFER 

3240 017160 005367 O06SS0 DEC WORK :DEC. WORK COUNT 

3241 017164 001373 BNE FILDAT “LOAD NEXT WORD 

3242 017166 000207 RTS PC :BUFFER FUL 

3243 017170 012721 177777 PATT32: MOV #177777,(1)+ | INSERT ALL ONES PATTERN 
3244 017174 005367 006534 DEC WORK 

3245 017200 001404 BEQ 1$ 

3246 017202 005021 CLR (1)+ :LOAD ZERO PATTERN 

3047 017204 005367 o06Se4 DEC WORK ‘DECREMENT WORD COUNT 

3248 017210 001367 BNE PATT32 ;LOOP IF NOT ZERO 

3249 017212 000207 18: RTS PC . 

3250 “RANDOM DATA GENERATOR, supRouTiNé 

se GUS SITE Gees BLS HO a ae 

3253 017230 016700 O00 35 18: MOV HN Hee :SET UP RO WITH S DIGITS LOW 
3254 017234 016704 O00116 MOV HINUN’ RY :SET UP R1 WITH 5 DIGITS HIGH 
3255 017240 012703 000007 MOV #87,R3 :SET UP SuIFT COUNT 

3256 017244 oosoo2 CLR Re’ A 


CLEAR Re 
3257 017246 006300 es: ASL RO : SHIFT RO LEFT AND 


BoAbbe 
3258 


SEC RRe RR CBN IOs ORR Sa SRO SERSE Sooo Soa sNO ReaD TDR ODS 


ieee SE 


017250 


Bi7584 
017256 


017272 


Seeeees 


82 SBR 


ONOVOOOOVO OOO VO OO0000000 
# 
£ 


be be be be be be Be Fe pe be Be Fe Be B= Fo be Be Be Be Fe 
ta % 


pp peenessse2esss999999 
N 
Bea ShnaRRadNES 


—e 
ro 


o 
a 
a 
at) 
ial) 


006104 


O04SE7 


000070 
000064 
001057 


047401 
o00006 


000026 
C06400 
000014 
006364 


oo00de 
161664 
161656 
006244 
161722 
161636 
006222 
161702 
161616 
006164 
161662 
161576 
006154 
161642 
161556 


Terese 


161536 


-9PR- -49 PA 
27(1006) 29-APR-77_ 14.49, PAGE 62 


161650 


162144 


162124 


162104 


162064 


162044 


#B1,HLTCTS 
RS, PRINTS 
RS,PRINTS 


RPDS, TTY 
PC, PRINTR 
RS; PRINTS 


JRPER, TTY 
PC, PRINTR 
RS; PRINTS 


JRPCS, TTY 
PC, PRINTR 
RS‘ PRINTS 


we TTY 


C,PRINTR 
RS; PRINTS 


pRPpA TTY 
C,PRINTR 
RS, PRINTS 


os 


INTO Re 


ROTATE CARRY INTO Se Ot R1 INTC 
ME 


sRorar CARRY OUT 
;DECREMENT R3 
;CONTINUE SHIFT LOOP 


i ADDN IN R TO MAKE X 129 
1p TE CARRY 
tADON IN NUMBER TO MAKE X 129 
; PROPOGA Y 

LOW CONSTANT 


: AGAIN 

sADDON HIGH CONSTANT 

; TE_CARRY 

;ADDN HIGHEST CONSTANT 
sREPRIME RO WITH HIGH DIGIT 
sPROPOGATE CARRY 

;PUT RO BACK IN LONUM 

;HOLD LONUM FOR PROGRAM 


PUT R1 BACK IN HINUM 
HOLD HINUM FOR PROGRAM 


;RETURN TO PROGRAM 


;TYPE ENTIRE MESSAGE 
!BRANCH IF NO 
:PRINT MESSAGE 
;PRINT MESSAGE 


; TYPE LOCATION WITH LEADING 
;PRINT MESSAGE 


; TYPE LOCATION WITH LEADING 
;PRINT MESSAGE 


; TYPE_LOCATION WITH LEADING 
;PRINT MESSAGE 


; TYPE LOCATION WITH LEADING 
;PRINT MESSAGE 


; TYPE LOCATION WITH LEADING 
;PRINT MESSAGE 


ZEROS 


ZEROS 


ZEROS 


ZEROS 


ZEROS 


SARI TO ET EO 


3314 017526 023672 <p MES2D a 
IB tee Bre Ties Ney Re. BRIN th TYPE LOCATION WITH LEADING ZEROS 
1? O1 2767 006160 CMP 5’ TESTNO TEST 5? 

3319 pt yeee Nestea 000006 006150 ae 43 TESTNO GR, bs 

3333 B17 EPs atte NE 8 BR IF NO 

3321 017562 4g: 

3322 017562 OO4S67 161476 JSR RS, PRINTS PRINT MESSAGE 

3323 017566 02 61 MES21 READ COUNTER = 

3304 O01 016767 006160 161764 MOV CNTA, TTY 

3325 017576 161554 JSR PC. PRINTS ; TYPE LOCATION-SUPRESS ZEROS 

3326 017602 032767 OO0001 161432 1S: BIT 480, HLTCTS TYPE E C 

3327 017610 001001 BNE BRANCH IF YES 

3328 017612 000207 RTS 53 

33209 017614 7 o00002 161420 2s: BIT #81,HLTCTS 

3330 017622 001403 BEQ 3$ 

3331 017624 7? 161434 JSR RS, PRINTS PRINT MESSAGE 

3332 017630 024175 MES17 

3333 017632 7? g00004 161402 3s: BIT #B2,HLTCTS : TYPE MEMORY MANAGEMENT REGISTERS? 

3334 017640 001450 BEQ c$ :BR 

3335 017642 S67 161416 JSR RS, PRINTS : PRINT MESSAGE 

3336 017646 024360 MES23 

3337 017650 013767 172344 161704 MOV JeKIPAR2, TTY 

3338 017656 004767 161474 JSR PC, PRINTS ; TYPE LOCATION-SUPRESS ZEROS 

3339 017662 OO4SE7 161376 JSR RS; PRINTS ‘PRINT MESSAGE 

3340 017666 024375 MES24 

3341 017670 013767 172346 161664 MOV Q#KIPARS, TTY 

3342 017676 004767 161454 JSR PC, PRINTS - TYPE LOCATION-SUPRESS ZEROS 

3343 017702 S67 161356 JSR RS; PRINTS :PRINT MESSAGE 

3344 017706 O24420 MES2S 

3345 017710 013767 172350 161644 MOV QHKIPARY, TTY 

334 017716 004767 161434 JSR PC, PRINTS TYPE LOCATION-SUPRESS ZEROS 

3347 017722 161336 JSR RS; PRINTS PRINT MESSAGE 

3348 017726 024435 MES26 

3349 017730 013767 172352 161624 MOV JsKIPARS, TTY 

3350 017736 004767 161414 JSR PC, PRINTS TYPE LOCATION-SUPRESS ZEROS 

3351 017742 OO4S67 161316 JSR RS; PRINTS !PRINT MESSAGE 

3352 017746 Oe4460 MES27 

3353 017750 013767 172354 161604 MOV aek IPARG TTY 

354 017756 004767 161374 . JSR C,PRINTS TYPE LOCATION-SUPRESS ZEROS 

3356 017762 OO4S67 161276 ISR RS, PRINTS ;PRINT MESSAGE 

3357 017766 Oe4210 MES 

3358 017770 016767 O00030 161564 MOV EXP$, TTY 

3359 017776 004767 161342 JSR PC, PRINTR TYPE LOCATION WITH LEADING ZEROS 

3360 O20002 S67 161256 JSR RS; PRINTS :PRINT MESSAGE 

3361 Oe0006 Oe4224 MES19 

3362 020010 016767 oO0012 161544 MOV RECS, TTY 

3363 020016 004767 161322 JSR PC, PRINTR : TYPE LOCATION WITH LEADING ZEROS 

3364 O20022 000207 RTS 

3365 020024 o00000 EXP$: 0 

3366 O20026 00000 RECS: 0 

3367 

3368 
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SSF cet ati 


012767 


016067 


000032 
00sS1e 


177777 
005476 


005470 
177606 


OOS4S6 
161332 
161444 
005436 


005430 
161422 


005416 
020030 


005640 
005640 
005604 
005550 
0OSS66 
161544 
161534 
005532 
o0sS22 


177624 


177564 


177544 


177530 


.EVEN 
;RP11 DATA PATTERNS 
163126 
0S 


PATI: Ses 
PATe:- 2Se2 
PAT3: 031463 
PAT4: 007417 
PATS: 042 
PATE: 104 
PAT7: 042104 
PATIO: 104210 
PATI1: 167356 
PATi2: 156735 
PATI3: 673 
PATI4: 3567 
AT1S: 000001 


P 00 
;PAT1& RANDOM DATA 


Dy ee a et THE DATA READ AGAINST THE DATA EXPECTED. 


ORTED TO THE 


OPERATOR. 


IF BIT S OF THE SWITCH 


;ALL REP 
; REGISTER IS SET, THIS nT WILL CONTINUE COMPARING AFTER AN 


N FOUND AND W 


SomMPAR ERCOUN 
MOV OCT, WORK2 
MOV #OUTBUF . SAVE 
BIT , FLAG 
BNE 1$ 
MOV #40000, SAVE 
1S: CLR SWITC 
MOV LOSAV,  LONUM 
MOV HISAV’ HINUM 
CMP #34, PATNU 
BEQ CHP P 
CMP #32 PATNU 
BNE CMPLP1 
CMPLP2: TST SWITCH 
BNE 1$ 
MOV #177777, EXPS 
MOV SP, SWITCH 
BR WROCMP 
1S: CLR SWITCH 
CLR EXP 
BR WRDCMP 
CMPLP: TST SWITCH 
BNE 2 
JSR PC, RANDS 
MOV LONUM, EXPS 
MOV SP, SWITCH 
BR WROCMP 
2S: CLR SWITCH 
MOV HINUM, EXPS$ 
BR WROCMP 
CMPLP1: MOV 


PATNU. RO 
MOV PATO(RO) ,EXPS 


OR HAS BEEN LL 
WIT HIN . SAME Rg _—o 


REPORT UP TO 3 VERIFY ERRORS 


;ERROR RETRY te 

GET THE WORD COUN 

SET UP OUTBUFFER POINTER 

; 8K WIT vie MANAG. OR NO MEM. MANAG 
“START OF MEM. MANAG. OUT BUFFER 


:CLEAR RANDOM PATTERN FLAG 
GET RANDOM BASE NOS. 


;IS THIS eee PATTERN? 
: BRANCH 

31S THIS SPECTAL PATTERN? 
:BRANCH IF NO 


;EXPECT ALL ONES 
:SET THE FLAG 
:GO COMPARE DATA 


;EXPECT ALL ZEROS 
:GO COMPARE DATA 


; GENERATE ie are NOS. 
:GET EVEN R WOR 
:SET RANDOM APATTERN FLAG 


RP11C RELIABILITY TEST MACY11 27(1006) 
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3483 


o0s41e2 
005430 


o0000e 
000032 


000034 


164140 


00S332 
1606S2 


000023 
005165 


005156 
005156 
160472 


00Si4e 
160550 
005114 


005246 
o0Se4e 
005240 
00S214 


005173 


160760 


BO6 


Rag ply 14:49 PAGE 65 
# SUBROUTINES ### 


WROCMP: CMP aSAVE , EXPS 
BNE WOERR 


BEQ ADAM 
Ol 
BHI WROCMP 
CMP #34, PATNU 
BEQ CMPLP 
BR CMPLP2 
BR WROCMP 
ADAM: RTS PC 
WOERR: TST INTFLG 
BEQ MP 
MOV ISAVE , RECS 
MOV SP, ERRFLG 
TST RDERR 
BEG 3 
BIT #84, aaSWR 
BEQ 1 
3S: BIT #86, FLAG 
BNE 10$ 
HLT +5 
BR ag 
105: HLT +3 
9s: CLR BLOCK 
MOV WROCT , WORK 
SUB WORK2’ WORK 
2s Sus #400 , WORK 
BMI 3$ 
INC BLOCK 
BR 2$ 
as ADD #400, WORK 
MOV DMA, WORK 1 
MOV CYLINDER, WORK3 
S$ TST BLOCK 
BEQ 7§ 
DEC BLOCK 
CMPB 3 s«#11, WORK1 
BE ug 
INC WORK 1 
BR c$ 
4§: CLRB 


WORK 1 
CMPB #23,WORK1+1 
BEQ 
INCB WORK 141 
o5 S$ 
6$: CLR WORK 1 
INC WORK3 
BR c$ 
7$: 
JSR RS, PRINTS 


MOV WORK3, TTY 
ISR PC patNTS 
Achyx 


a 
eo +! THE WORD COUNT 
EXIT ROUTINE IF ZERO 
UPDATE PATTERN ADDRESS 


gen HIF Meas, oe 


;1S THIS RANDOM PA 

BRANCH IF YES 

BRANCH IF 

COMPARE NEXT WORD 

EXIT THIS ROUTINE 

DID INTE T OCCUR YET” 
H IF 

GET 

ee! ERR’ 


Bait AL RETRY ERRORS” 


IF NO 
MEMORY MANAGE MENT ? 
:BR_IF_NO 
;DATA COMPARE ~~ USING MEM. MANAG. 
GET ARROUND HLT+3 
:DATA COMPARE ERROR 
;CLEAR THE BLOCK COUNTER 


;GET THE WORD COUNT 
;DETERMINE DISTANCE OF FAILURE INTO BUFFER 


;UPDATE BLOCK COUNT FOR EACH 400 WORDS 


sReSTORe POSITIVE NUMBER 
T HEAD AND SECTOR ADDRESS 
GET CYLINDER ADDRES 
i1S S THE BLOCK COUNT ZERO” 
HIF YES 


‘ BECREMENT BLOCK COUN 
: DETERM INE | THE C YETNDER HEAD, 
:AND SECTOR AORESSES OF THE 
“COMPARE ERROR 


;PRINT MESSAGE 
;GIVE CYL ADDR 


TYPE LOCATION-SUPRESS ZEROS 


pone Bt +1 ime TEST aw 27(1006) 29-APR-77 14:49 PAGE 66 


29-APR-77 14: #4% SUBROUTINES ##% 
3482 020612 116767 005121 005106 MOVB WORK} +1 ACNVX 
3483 004567 160440 JSR S, PRINTS ;PRINT MESSAGE 
3484 024153 MESIS :GIVE HEAD ADDR 
3485 O206e6 016767 005074 160726 MOV ACNVX, TTY 
3188 004767 60518 ISR PC, PRINTS : TYPE LOCATION-SUPRESS ZEROS 
40 116767 hee0 005060 MOVB WORK1, ACNVX 
3488 O2064% 004567 160412 JSR RS, PRINTS :PRINT MESSAGE 
3489 Oe06S2 024164 MESI6 ‘GIVE SECTOR ADOR 
3490 O206S4Y 016767 OOSO4E 160700 MOV ACNVX, TTY 
3491 Oe0662 004767 160470 JSR PC, PRINTS : TYPE LOCATION-SUPRESS ZEROS 
3492 020665 160372 JSR RS; PRINTS :PRINT MESSAGE 
3493 020672 GesO43 MESS 
349 020674 016767 005034 005024 MOV WORK , ACNVX :GET WORD COUNT INTO SECTOR 
3495 Oe0702 005267 005020 INC ACNVK 
34% 020706 016767 OOSO14 160646 MOV ACNVX, TTY 
3497 020714 004767 160436 ISR PC, PRINTS - TYPE LOCATION-SUPRESS ZEROS 
3498 020720 004567 160340 JSR RS: PRINTS :PRINT MESSAGE 
3499 020724 024127 MES13 
3500 G20726 016767 004772 160626 MOV RDERR, TTY 
3501 020734 004767 160416 JSR PC PRINTS Tyre 06 LOCATION-SUPRESS ZEROS 
3502 020740 032737 O00040 177570 1S: BIT aGe, JaSHR ARING 
3503 020746 00140S BEQ BRANCH nee’ MO 
3504 ? 004756 INC EROOUNT ‘UPDATE ERROR COUNTER 
350S 020754 9091402 BEO 11$ 
3506 000167 177322 IMP WROINC 
3507 Oe07be 000167 177356 118: IMP ADAM 
3508 
3509 
3510 
li : EXTENDED MEMORY EXERCISER 
le OGRAM DETERMINES HOW MUCH MEMORY 
3513 ‘Te ON THE SYSTEM THEN 
3514 GENERATES A RANDOM EER T T SIZE 
3515 !QND WRITES AND WRITE CHECKS He DATA 
3517 66 032767 O00100 004670 EXTMEN: BIT #86, FLAG ;MEMORY MANAGEMENT IN USE? 
3618 020774 90100e BNE 1$ BR IF NO. 
3519 ? 177572 CLR aeSRO : TURN IT 
3520 021002 000001 o04630 1S: BIS #80, IRPCS : CLEAR THe 5ISK 
3521 021010 105777 TSTa) 3s arts 
3S22 021014 100375 BPL “4 
3523 021016 012737 OO00340 177776 MOV #PRI7, JePSW ;LOCK UP PRIORITY LEVELS 
3524 021024 912767 021074 156752 MOV #MAXREF , 4 :SET UP I/O BUS T 
3525 021032 012767 000340 156746 MOV #PRI7,6 
3526 O21040 012767 017446 OdO4e44 MOV 817446, SAVE ;SET_UP FOR 4K 
3527 021046 005777 004640 EXREF: TST aSAVE REFERENCE MEMORY 
3528 021052 022767 157446 004632 CMP #157446, SAVE TEST FOR 28K 
3529 021060 001001 BNE 1$ ‘BRANCH IF LESS THAN 28K 
3530 O2i06e 000407 BR MAXRF 1 ;LAST REFERENCE MADE TO 1/0 REG. 
2531 O21064 062767 O20000 oo46e0 15: ADD #20000, SAVE :SET UP FOR NEXT MEMORY REF. 
$e 021072 o00765 BR EXREF :GO REFERENCE MEMORY 
2524 sENTER HERE WHEN I/0 BUS ERROR OCCURS 
536 021074 162767 020000 OO4610 MAXREF: SUB #20000, SAVE . ’ * 
3€37 021102 O127&7 OO000E 156674 MAXRF1: MOV 86.4 sRESTORE 1/0 BUS TRAP 
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### SUBROUTINES ### 


1$: 
MMBK: 


EXIT: 


; THIS SUB-ROUTI 


Swe i UNDER MONITOR CONTROL? 
¢ Say a THE NIT 
sie MEMS oe rAgOm MAX RENORY OR ROORE SS 
1ZE WITH A EMORY 

#OUTBUF,SAVE § :DETERMINE THE BUFFER SIZE 
SAVE ;FORM WORD COUNT 
SAVE ,WROCT ‘SAVE IT 
#80, SAVE :MAKE ADDRESS EVEN 
sOUTBUF INBUF  :START OF INPUT BUFFER 

VE, 'NBUF 
#377, WROCT DETERMINE MAXIMUM WORD COUNT 
wRoct , SWROCT 


aSTKPTR-2, SP 
RS 


MAPS FOR MEMORY MANAGEMENT AND SETS UP 


:BUFFER SIZES WITH MEMORY MANAGEMENT 
MMSIZE: BIT 


1$: 


NXM: 


1S: 


MMF IN: 


om aa ier IF — MANAGEMENT ” 
a8SRO ; TURN MEMORY MANAGEMENT BACK ON 
aoe DHERRVEC _ ;SET UP FOR TRAP 


RRVEC+2 

#400" dak IPARS ETUP FOR NEXT 4K PAGE 

#400%256. “HOO suri JSKIPOR2  ;SET KIPDR2=RW UP 400 BLOCKS 
#40000, RO SEt UP FOR TEST 


(RO) 

840, 39K IPAR2 ;JUMP PAGE BY 1K 
1 ; TEST NEXT PAGE 
Cie ,@8KIPARS =; 8K bgt, 


:BR IF MORE T 
#88, FLAG :8K MACHINE worn SEMORY MANAGEMENT 
ask [PORE :SET KIPDRe TO BE NON EXI 

RESTORE TRAP CA 


86, J84 
3ab 
MMBK :FINISH MAPPING AS IF NO MEMORY MANAGEMENT 
aak PARE PARMAX :PUT KIPARe INTO WORK : OCATION 

PARMAX :ADJUST MAXIMUM RELOCATION CONSTANT 


PaRMAX” RO ;GET WORKING COPY OF THE RELOCATION 
CONSTANT AND 

#177637, RO ;FORM AN 

RO ; INDEX INT 

RO ;THE TABLES FOR 

RO sRELOCATION CONSTAN 

RO FOR THE SIZE OF THE LAST PAGE 

PARTAB(RO), parnax CALCULATE THE Rex ATLN PSL OCT LON 

TANT_FOR MEMORY MANAGEMENT 


MMTAB(RO) , MMSIZ iGET THE’ SIZE _OF THE LAST PAGE AND 
;G0 CREATE yt SIZES AND WORD COUNTS 


#1600, PARMAX : PARMAX 
S$ :BR IF VES, ELSE PROCEED ONWARD 
R} RESET FULL 4K BUFFER COUNTER 


EQ6 
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3594 021432 005067 004236 CLR WROCT :CLEAR WORD COUN 
3595 021436 012700 000400 MOV #400, RO igeT UP TO EXTRACT THE NUMBER 
339 1442 ? 900310 1$ CMP RO, PARMAX if weve 7 rE ff R OF Fut “igo $? 
: ’ : s 
3598 pete aati BEQ Re oo YES, EL NREBERT 
3599 O214S0 062700 000200 ADD #200, RO | UPDAT — TO NEXT 4K BUFFER 
3600 021454 005201 INC RI ‘UPDATE FULL 4K BUFFER COUNTER 
3601 021456 000771 BR 1$ !AND REPEAT 
3602 021460 010167 000270 23: MOV R1,PORS ‘STORE NUMBER OF FULL 4K BUFFERS 
3603 021464 38: TST Rl FINISHED CALCULATING PARTIAL WORD COUNT? 
3604 021466 001405 BEQ 4§ ; BR IF YES, ELSE PROCEED ON 
360S 021470 062767 010000 004176 ADD #10000,WRDCT | :USING THE NUMBER OF FULL 4K PAGES 
3606 021476 005301 DEC Ri ; CALCULATE A PATIAL WORD COUNT 
3607 021500 000771 BR 3$ 
3608 021502 7? 900246 4§: INC PDRS ADJUST FOR MEMORY MANAGEMENT MAPPING 
3609 021506 767 000240 O04160 ADD MMSIZ,WROCT :ADD SIZE OF LAST PAGE 
3610 O21514 016767 OO41SY 004166 MOV WROCT;SWROCT § :AND SAVE TOTAL BUFFER SIZE AND 
3611 021522 016767 004146 00250 MOV ; !SAVE AGAIN FOR CONFORMITY 
3612 021530 000414 BR ;G0 SAVE ORDERS 
3613 Gel532 012767 oS0000 oo0e40 SS: MOV 8SOO00,MAXWC :20K TRANSFERS 
3614 021540 012767 O40000 o04142 MOV #40000’ SWROCT :SET UP HIGHEST TRANSFER SIZE 
3615 021546 066767 000200 004134 ADD mis SWROCT | :ADD LAST PAGE S ze 
3616 021554 012767 900005 000172 MOV PORS SET UP COUNT FOR KIPDRS 
3617 Oel562 005767 004170 SALDR: TST tO FLG ARE THE LOADERS ALREADY RELOCATED? 
3618 O21S66 001017 BNE 'BR IF YES 
3619 021570 005037 177572 CLR SESR0. !TURN OFF MEMORY MANAGEMENT 
3620 021574 O0Si67 OO4ISE COM LORF "ADJUST LOADER RELOCATED FLAG 
3621 021600 016700 o0014e2 MOV Soe RO 
3622 021604 042700 003777 BIC #3777, RO :SET UP FOR 1K WORD 
3623 021610 012737 O2i626 coD004 MOV #1$.dRERRVEC § :SETUP TRAP CATCHER 
3624 021616 012701 o34000 MOV #34600,R1 !BK START ADDRESS FOR LOADERS 
3625 O2lb22 23: MOV (RO)+, (R1)+ :MOVE LOADER 
3626 021624 000776 BR 
3627 OelSe6 012737 O00006 00004 1S: MOV 86, JBERRVEC ;RESTORE TRAPCATCHER 
3628 021634 005037 900006 CLR aatERRVEC+2 
3629 021640 052737 000001 177572 BIS #80, a8SRO ; TURN MEMORY MANAGEMENT BACK ON IF OFF 
3630 O2164% 016700 O0010e MOV PORS, RO !PUT NUMBER OF KIPORS INTO WORK REGISTER 
3631 021652 005300 DEC RO !SETUP FOR PROPER NUMBER OF KIPDRS 
3632 O21654 001422 BEG 3$ -BR IF NO KIPDRS NEED SETTING UP 
3633 021656 012737 177406 172306 MOV #400256. -400+UP SRW 38K TPORS :SET KIPDR3=RW UP 400 BLOCKS 
3634 021664 005300 DEC RO ; ENOU GH KIPORS? 
3635 021666 001415 BEQ 33 IF ENOUGH 
3636 021670 012737 177406 172310 MOV #400%256.-4O0+UPSRW. JSKIPORY SET KIPDRY=RW UP 490 BLOCKS 
3637 021676 O05 DEC RO s ENOUGH KIPDRS? 
3638 021700 001410 SEQ 33 "BR IF Y 
3639 021702 012737 177406 172212 MOV #400#256.-4O0+UP+RW.dSKIPORS § ;SET KIPDRS=RW UP 400 BLOCKS 
3640 021710 005300 DEC RO : ENOUGH KIPORS? - 
3641 Gel7le 001403 BEG 3$ ‘BR IF YES 
se4e 21714 012737 177408 172314 MOV #400#256.-400+UPSRW,deKIPORG  § ;SET KIPDR&=RW UP 400 BLOCKS 
3644 O21722 OO4SE7 157254 ISR RS, PRNTFS :FORCE PRINT THE MESSAGE 
3645 021726 024301 MES22 “LOADERS HAVE BEEN RELOCATED TO 8K 
3E4E :TO RESTORE LOADERS START AT LOCATION 
3647 021730 012767 023514 157624 MOV BRELOAD, TTY 
2642 021736 004767 16743¢ ISR PC PRINTS sFORCE TYPE LOCATION - SUPPRESS ZEROS 
36439 O21742 O00167 177254 IMP ext? ‘MEMORY MANAGEMENT DONE 
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021746 900000 MEMSIZ: 9 
021750 900000 MEX: : CONTROLER EXTENDED MEMORY ADDRESS 
pst 7e4 aay rr 2s 5 rt Ay PAGES IN THE BUFFER 
og ieee aust PARMAX: 8 THe MAXIMUM KIPAR VALUE 
-TABLE OF OFFSETS FOR CORRECTING PARMAX RELOCATION CONSTANT 
021760 go009 ParTAB: .WORD 0 
O21762 000040 “WORD 40 
021764 900100 -WORD 100 
021766 900140 “WORD 140 
ini SLE OF LAST PAGE SIZES 
021770 902000 TAB: .WORD 1024. 
021772 oo04000 WORD 2048. 
021774 906000 “WORD 3072. 
021776 910000 “WORD 4096. 
d22000 900000 MAXWC: © 
:SUB-ROUTINE TO INITALIZE KIPAR2-6 
O22002 O16700 177746 PARINT: MOV PORS, RO :GET NUMBER OF KIPARS 
20068 012737 OoD400 172344 MOV #400; asKIPAR2 :SETUP FIRST PAGE 
022014 00 DEC RO : DONE? 
2016 001422 BEG 1$ :BR IF YES 
Oee020 012737 on0b00 172346 MOV #600, d"KIPAR3 :SET UP SECOND PAGE 
022026 005300 DEC RO : DONE? 
2030 901415 BEQ 1$ :BR IF YES 
012737 901000 172350 MOV #1000,38KIPARY :SETUP THIRD PAGE 
2040 005300 DEC RO : DONE? 
022042 001410 BEQ 1$ ‘BR IF YES 
022044 012737 001200 172352 MOV #1200,38KIPARS ;SETUP FOURTH PAGE 
20S2 005300 DEC RO : DONE? 
022054 001403 BEG 1$ :BR IF YES __ 
Q22e056 912737 00:400 172354 MOV #1400, daKIPAR& :SETUP FIFTH PAGE 
022064 062716 900004 1$: ADD #4, (SP) 
022070 000207 RTS PC 
:SUB-ROUTINE TO INCREMENT EACH KIPAR USED BY 1K 
022072 ooso00 PARINC: CLR RO :SETUP INDEX 
022074 O16746 177654 MOV PORS, -(SP) ;GET NUMBER OF KIPARS 
022100 006316 ASL (SP) U 
022102 062760 OO0D40 172344 1S: ADD #40 KIPAR2(RO) SOR RE RENT KIPAR BY 1K 
922110 005720 TST (RO}+ :BUMP INDEX 
O2e2lle O20016 CMP RO. (SP) ; DONE? 
022114 001372 BNE 1$° :BR IF NO 
022116 005726 TST (SP)+ “CLEAN UP STACK 
022120 900207 RTS pc : RETURN 
:SUB-ROUTINE TO GENERATE “MEX”, “WROCT", “BUF” USING MEMORY MANAGEMENT 
022122 012700 172344 PARREG: MOV oak 1PARE RO :GET THE LOW REGISTER 
Geeize 042700 171772 BIC 171770, R0 -CLEAR ALL BUT ADDRESS SITS 173818 


~, 
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3706 022132 006300 ASL RO sPROPERLY POSITION MEX BITS 
3707 022134 906300 ASL Ro 
3509 B55 tap 01 a 177604 ao Ay MEX FOR DR ve D MEMORY BITS 
é é ! 
ie Geel Glo 172s ee ET ee 
f . 
#718 022154 00 ASR RO ‘ BROPERLY POSITION ag 8A 
713 Oe2156 00 ASR RO 
3714 022160 000300 SWAB =SséRO 
3715 O2el62 010067 003520 MOV RO, BUF :STORE AS BUS ADDRESS 
716 OQe2l6& 042767 001000 063470 BIC #89, FLAG CLEAR LAST PAGE FLAG 
3717 22174 005000 CLR RO :INITALIZE INDEX 
3718 22176 016700 177552 HOY PORS, JRO GET NUMBER OF KIPARS 
20 B5S50q Ope 300 ASL RO FINAL INQEX V VALUE 
3721 O22206 O1604% 172344 MOV KIPAR2 (RO) ~(Sp)' VALUE OF LAST KIPAR ON STACK 
372 Oeeele Deebb/ 177546 cH ($P)+, PAR ARMAX ; WORKING uITH LAST PAGE? 
37 psssi8 pe 4oPS 001000 003436 BIS 139. FLAG :SET LAS at? pb 
3725 Oeee26 032767 O00002 003430 1S: BIT #81 FLAG ; OPERATOR eh He TRANSFER SIZE 
3726 Oeees4 001010 BNE 2s R IF OPERA OR SELECTING TRANSFER SIZE 
3727 022236 032767 001000 003420 BIT #89, FLAG CAST TRAN 
3728 O2ce44 001004 BNE 2 R IF res 
3729 Oeze46 O16767 177526 003420 MOV MAXWC, WROCT :SETUP WOR 
3730 See2s4 00403 BR T FROM SUB-ROUTINE ’ 
3731 O22256 O18767 003426 003410 25: MOV SWROCT,WROCT SETUP OPERATOR OR LAST PAGE WORD COUNT 
373 022264 0900207 33: RT PC :RETUR 
373 
3738 BACKGROUND TEST FOR INTERRUPTS - WORST CASE NPRS AND SUS PATTERN 
3738 O22266 O10667 900222 NPR: MOV SP BCKFLG : SET BACKGROUND FLAG 
3739 Oece7e Ole767 O30000 909210 MOV #30000, NPRCNT  :SETUP TIMEOUT COUNTER 
3740 022300 012701 O22512 MOY #NPR1R! 
3741 022304 905011 CLR (RL) :SETUP BUS PATTERN 
5742 022306 000261 SEC 
3743 022310 O00010 2$: 
744 022310 106111 ROLB = (RL) 
3745 Oeezie 105421 NEGR (RI )+ 
022314 10544! NEGB 3s -(R1) 
3747 022316 106111 ROL8 ~—s- (R11) 
3748 O22320 105421 NEGR (RL) + 
3749 Oe2322 10544] NEGR = -(R1) 
23204 106111 ROLB = (R11) 
3751 022326 105421 NEGR = (RI) + 
022330 105441 NEGE = - (R21) 
3753 Oeesse 106111 RCLB ss (RL) 
3754 022334 10542! NEGE = (RI) + 
3755 Oee336 10544] NEGE = - (RL) 
3 022340 106111 ROLB ss (R11) 
3757 Oee34e 105421 NEGB (RL) + 
3758 O22344 105441 NEGB = - (RL) 
3759 Oee346 106111 ROL CRI) 
3760 O22250 105421 NEGB Ri}+ 
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37 022354 106111 ROLB (RL) 
37 2356 105421 NEGB (RI)+ 
3764 022360 105441 -(R1) 
765 106111 ROL (R1) 
4 i 42} (Ri)¢ 
7 44} -(R1) 
022370 Cl a 
3783 022372 106111 ROLB (RL) 
3770 022374 105421 GB (R1)+ 
1 022376 105441 GB -(R1) 
3772 O22400 106111 ROLB (R1) 
3773 Oe2402e 105421 GB (R1)+ 
3774 O22404 105441 GB -(R1) 
3775 2406 106111 ROLB (R13 
3776 O22e410 10542! GB (Rl)+ 
3777 Oee4¥l2e 10544) -(R1) 
3778 022414 106111 ROLB (R1) 
3773 C22416 10542) (RL}+ 
37 022420 10544) -(R1) 
3781 Oee422 106111 ROLB (R1) 
7 2424 10542! NEG (R1)+ 
783 Oee4e6 10544) NEGB -(R1) 
022439 106111 ROLE (R1) 
ve Bee ies ee Ls 
weak ' , 
37 Bes 43¢ 106111 ROLB (RL) 
3788 0 105421 NEGB (RL)+ 
37 C2e442 10544! NEGB -(R1) 
2 44 106111 ROLE (RI) 
731 105421 6 (Rlj+ 
? SO 105441 NEGB -(R1) 
3793 O224S2 106111 ROLB (R1) 
3794 022454 005301 D R} 
3795 022456 10340! acs 1$ : Ws 
3796 O2e460 900000 HALT sARITHMETIC OPERATION FAILED RUN DIAG 
3797 022462 367 900022 1S: DEC NPRCNT 
3798 O22466 1310 BNE 23 ee 
3799 022470 104400 HLT :OPERATION TIMED OUT WAITING FOR INTERRUPT 
3800 bees7e St7 156566 158. RS, PRINTS “PRINT MESSAGE 
0} 4 44 rIMo 
soe 00 900000 HALT 
905067 oco00de NPRRET: CLR BCKFLG 
Sane | pSsene | poseRe eye BE 
3806 022510 900000 NPRCNT: 0 
3807 O225i2 900000 NPRI: 9 
2808 O22514 990000 BCKFLG: O 
ae 
3811 :THIS TEST ALLOWS THE OPERATOR TO SPECIFY TWO CYLINDER ADDRESSES 
2812 ;AND THE PROGRAM WILL THEN SEEK BETWEEN THEM. THE ROUTINE DOES 
3813 :NOT CHECK FOR ERRORS. 
PS 
315 02251— 00005 CYLSK: RESET x 
S2i& Oe25e0 OO4SE7 1SE5S¢ ISR RS PRNTFS :FORCE PRINT THE MESSAGE 
3817 022524 925332 CONI7 


1 
100375 
036777 


» MeCN 27( 1006) 
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os 
000424 
156530 


157124 
000131 


o00Seé 
156802 


ia 
0626 


157506 
156446 
1$7042 
187214 
000626 
157452 
156412 
1S7006 
157160 
000010 


1S7414 


174104 
174074 


002632 
004009 
Boze 


174032 


157254 


157226 


187514 
003116 


157460 
003064 


157424 


002732 


002700 
002662 


C0266 
002656 
002640 


002610 


002614 


106 
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##% SUBROUTINES ### 
SR PC READ 
a 8131, INPUTS 
BNE 4§ 
~ IMP HEAD 
JSR RS, PRNTFS 
CON19 
JSR PC READS 
CMP #131, INPUTS 
BNE 1$ 
“ IMP HOMERS 
ISR RS, PRNTFS 
cons PC, READ 
728 Po pices. 
MP 
BLCS 
a MOV ape 
JSR RS, PRNTFS 
CONI6 
ISR PC, READS 
JSR PC’ PACKS 
CMP #626, NUMS 
BLOS 
= MOV NUMS, CYLB 
ISR RS, PRNTFS 
CON4 
ISR PC, READS 
1SR PC’ PACKS 
CMP #16, NUMS 
BLOS )~Sss3$ 
CLC 
ROL NUMS 
ROL NUMS 
MOV NUMS. FLAG 
JSR PC, GATTN 
CYLS1: JSR RS; DSKNOS 
MOV CYLA, ARPCA 
BIS 11, aRPC 
20$: # TSTB pts 
BPL OS 
13: BIT ATTN, JRPOS 
BEQ 1$ 
MOV ATTN, JRPDS 
TST aRPcs 
BPL 2$ 
HLT 
BIT #811, dRPDS 
BEG § 
MOV #15. dRPCS 
213: TST aRPts 
BPL 21g 
38: BIT ATTN, JRPDS 


IBOES MERAY HEAD ALIGNMENT ROUTINE 
‘C0 60 HEAD ALIGNMENT ROUTINE 


;FORCE PRINT THE MESSAGE 


; INPUT MESSAGE 
:DOES HE WANT HOME SEEKS? 
;BR IF NO 


:G0 DO HOME SEEK ROUTINE 
;FORCE PRINT THE MESSAGE 
;CYLINDER a 
5 ANT Ree R ae 
i ONVERT INPU Is ? NUMBER 

31S CYL ae TOO HIGH? 


:BRANCH IF YES 
; SAVE FIAST ADDR 


sFORCE PRINT THE MESSAGE 
WOR B 


YL 
: INPUT MESSAGE 
:CONVERT INPUT TO @ NUMBER 
;1S CYL aon TOO HIGH” 
: BRANCH 
; SAVE SECOND ADOR 


;FORCE PRINT THE MESSAGE 
;DRI + ¥ 

; INPUT MESSAGE 

;CONVERT INPUT TO A » NUMBER 


1S UNIT # TOO HIGH? 
;BRANCH IF YES 


;SAVE UNIT 
DETERMINE. ATTENTION BIT 


; 1SSU 
:WAIT FOR READY 
;WAIT FOR ATTENTION 


;CLEAR ATTENTION BIT 
SANY ERRORS? 


;ERROR AFTER SEEK COMMAND 
; SEEK a en ty 


;BRANCH IF 
: ISSUE HOME NS oMMaND 
:WAIT FOR READY 


;WAIT FOR ATTENTION BIT 


BSabbe py fe ae pkSS TASS? E7008) Se eTBR 
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OUTINES # 


sa75 oS yet 74 0 a ATTN, aRP 
] 4 MOV 
3578 G53054 777 Ogee oe b 23: MOV CYLE, ak a :LOAD CYLINDER ADDR 
777 11 6S BIS ‘ian SEEK COMMAND 
3878 023070 105777 002544 223: TSTB $11,gF WAIT FOR READY 
3he0 SS307e OserTe re Og 
3076 173772 o02SS4 4S: BI ATTN, JRPOS unr? FOR ATTENTION 
3881 023104 001774 BEQ y 
3882 Oc3106 016777 173762 o02s44 MOV ATTN, IRPDS CLEAR ATTENTION 
3883 023114 005777 O02520 TST arcs Y ERROR 
3884 923120 190028 BPL S$ 
eee §53156 493300 o04000 002526 BIT #811, ORPOS ;SEEK INCOMPLETE? 
3887 Oe3l32 001415 BEQ c$ 
3888 023134 112777 000015 002476 MOVB #15. aRPCS ISSUE HOME COMMAND 
3889 023142 105777 002472 233: STB  apRPts :WAIT FOR READY 
3890 023146 100375 BPL 233 
3891 023150 777 173720 O0eS02e 63: BIT ATTN, JRPDS ;WAIT FOR ATTENTION 
3892 023156 001774 BEQ 
3893 023160 016777 173710 002472 MOV ATTN. JRPDS ;CLEAR ATTENTION 
3834 023166 000167 177544 3S: JMP cyLsl 
38% : THIS ROUTINE IS USED FOR HEAD ALIGNMENT - SWITCHES 00-04 IS THE 
3897 !HEAD TO BE SELECTED, SWITCHES O8-10 IS THE DRIVE TO BE SELECTED - 
3898 !WHEN SWITCH O7 IS TOGGLED A NEW HEAD AND DRIVE WILL BE SELECTED. 
3900 023172 HEAD: RESET 
3901 023174 OO4S67 156102 JSR RS, PRNTFS sFORCE PRINT THE MESSAGE 
3902 3200 rr cONLe 
3304 3504 002230 CLR CONI8A ;CLEAR OUT SHITCH DEF INATIONS PRINTOUT 
3905 093210 012777 O00001 oo2442 1S: MOV #1, JRPDS RESET RP11C CONTROLLER 
3306 3216 O1 oggeee 002424 MOV #222, IRPCA :SETUP FOR RYE SNDER 146 
ees 177570 MOV #SWR, -(S 
3908 023230 011667 002500 MOV (SP). WORK 
3909 023234 042767 177600 002472 BIC ai77é00, WORK ;CLEAR OUT DRIVE NUMBER 
3910 Og 2 ? 466 SWAB K ‘PUT HEAD IN PROPER POSITION 
3911 46 O16 462 002376 MOV WORK, aRPDA :LORD HEAD NUMBER INTO DISK ADDRESS 
3912 023254 012667 oge4sy if MOV 17 ae abe UNBE R. hs 
Gi fee Geer Bir mere HHS SE noe 
Vv W 
3916 023302 032777 110000 002350 23: BIT auis!Ble, JRPDS 
3917 022310 001774 BEQ 
3918 023312 105737 177570 3S: TSTB cecuR :NEW HEAD AND/OR DRIVE 
3919 023316 100375 BPL 3$ :BR IF NO 
3320 023320 000733 BR 1$ :GO TO NEW DRIVE AND HEAD 
3922 
3923 sTHIS ROUTINE DOES A HOME SEEK AND THEN TRIES TO DO 
3924 TWO WORD READ FROM CYLINDER O00 WITH OUT A SEEK TO CYLINDER OOO 
33¢6 i OOP ING BACK TO HOME SEEK 
3927 023222 HOMERS : ‘ 
3928 Oe33e2 OO4st7 155754 ISR RS, PRNTFS sFORCE PRINT THE MESSAGE 
39239 023326 024712 CONY “WHAT DRIVE? 


RP11C RELIABILITY T 
DOZRPBE.P11 e3 


023510 
023512 


012767 
104000 
000703 


012707 


UUSULS 


Asti 
1 

Ease 
002250 
002262 


002234 


001000 


023356 


034000 
176222 
003777 
023550 
000340 


000006 
000006 


Boles 


000176 


047105 


ST MACY11 27(1006) 
“77 14:41 


156766 


BeSSE 


002242 


155352 


B61 70 


002154 


1$5272 


000004 
000006 


ogo0o4 


020104 


ia 
* 


29-APR-77 14:49 PAGE 74 
##% SUBROUTINES ### 


8 

CMP 
25: TSTB 
3S: Ret 
S$: MOV 


4§: LR 


6$: fate 


arene 
Nee 


URIS v0 wre 


al a vrs zg cgrm 


3RPCS “CONTROLER READY? 
Sirs iD BE REaoy” 
RPCS 
a i oe 
: ERROR NTTa PRONE SEEKS 
#89, JRPDS {FILE UNSAFE? 
S$ BR 
:FILE UNSAF 
#1$,LAD : SETUP SCOPE LOOP 


Sheba 
foOtBCESRPga 
#17, IRPCS 

gPts ; 
JRPCS : 
1$ 


#1$,LAD 
HOMERS 


SETUP FOR TRACK 00, SECTOR 00 


RY oboe " 


;READ | WITH NO IMPLIED SEEK 
F NO 


iS? 


; ERROR 
:BR IF NO ERRORS TO MORE HOME SEEKS 
:HOME SEEK DID on 3 ae TO CYLINCER 900 


:FOR A READ OF 
;SETUP FOR SCOPE LOOP 


; TRY TEST AGAIN WITH NEW DRIVE 


: THIS ROUTINE RESTORES THE LOADERS FROM 8K TO HIGHEST NON MEMORY 


;MANAGEMENT CORE 


RELOAD: MOV 
MOV 


23: MOV 
1$: MOV 


#34000, RO 


#6, JWERRVEC 
DHERRVEC+E 
38176 
LDRFLG 
#176, PC 


;ERROR MESSAGE HEADERS 


- EVEN 
MES1: .ASCIZ 


;START OF LOADERS 
: TOP OF MEMORY 

AKE IT A 1K_TRANSFER 
ioeT UP FOR TRAP 


;RESTORE LOADER 


;RESTORE TRAPCATCHER 


;SET LOADER FLAG TO LOADERS 
;F INISHED 


€15><12>/END OF PASS / 


ar TA 


Pi iy 


P OF MEMORY 


BoA be By {07 
3986 


SGSERSGRESMAERoauEe 


023604 
023612 
Oese22 


024123 


BUMS, DREN! 270%) EF-St7 ABEND PME 7 


043117 
020123 


oaes22 


0S0040 


052123 
051122 


053412 
020124 
051440 
000040 
040520 
OS2440 

000 
0S2412 
047516 


046131 


051501 
042520 


020104 
047111 
041505 


020124 
042523 


O44S16 
020056 


000 


MESIA: 


MES2: 


MES2A: 
MES2B: 
MES2C: 
MES2D: 


MES4: 


MESS: 


MESE: 


MES7: 


MESB: 


MESS: 


MES10: 


MES11: 


MES le: 


-ASCIZ 


-ASCIZ 


-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


(15><12>/RPER= / 
«15><12@>/RPCS= / 


€15><12>/RPDS= / 
(15><12>/RPCA= 
(15)<12>/RPDA= 7 
(15><12>/SUCA= / 


¢15><12>/MEM ADDR= / 


€15><12@>/WAIT S SEC. AND TURN OFF PDP-11 PWR/ 


€15><12>/TEST NO 7 


¢15><12@>/TOT REREADS ON ERR= / 


€15)¢12>/STAT ERR/ 


¢15><12>/WD CNT INTO SECT= / 


~ 


(15><12>/PAT IN USE= - 


€15><12>/UNIT NG. / 


“CYL/ 


ye A ieee SS 


4042 
4043 


024127 
024134 
0e4i42 
Oevisb 


024153 
024160 


01S 
020104 


020078 


015 
036504 


015 
0075 


015 
020120 


Osei03 


051012 
04 


a 
o 


044513 
036440 


050012 


27( 1006) 


O40S0S 
020056 


00 
pegs 


020040 
050111 
020075 


040520 
020040 
020040 
050111 
020075 


040520 
020040 


047522 


ft SUBR 


MES13: 


MES14: 


MES1S: 


MES16: 


MES17: 


MES18: 


MES19: 
MES20: 


MES21: 


MES2e2: 


MES23: 


MES24: 


MESe2S: 


MES26: 


MES27: 


TIMO: 


77 
OUTI 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 
-ASCIZ 


-ASCIZ 


-ASCII 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


06 


14:49 PAGE 76 
NES ##% 


€15><12>/READ NO. 7 


415><12>/CYL= / 
€15><12>/HEAD= / 
€15><12)>/SECT= / 
(15><12>/COMP ERR/ 
€15><12)>/EXPECTED / 


€15><12) /RECVD / 
€15><12>/NO UNITS AVAIL’ 


(15><12>/READ CNTR = / 


€15><12>/LDRS MOVED TO 8K/ 


€15><12>/TO REST LDR START AT LOC / 


€15)><12>/KIPARe = / 


/ KIPAR3 


" 
“ 


" 
he 


€15><12>/KIPARY 


/ KIPARS 


" 
~ 


" 
~~ 


€15><12>/KIPARG 


€15><12>/PROC SCKGRD TEST TIMED OUT” 


REAAG REL ABILITY JES], MACYI1 27(1006) 


4039 
4100 


Oe4810 
0e4S16 


0e4Se4 


Oe 


1 

21ge 
020124 
020104 


ie 


052517 


ee Soe 


SAREE 
rei be 


05141e 
047111 
042101 


041505 


Osi80 
042515 


000124 


RAL 


Sue 
iG) 
wees 
Wwruo 
O~We 


a 
fr 


020077 
020122 


024524 


040524 
020107 
000077 


NOG 


29-APR-77 14:49 PAGE 77 
##% SUBROUTINES ### 


;CONVERSATION TEXT 


dpe cnes: 


CONI1: 
CON2: 


CON3: 


CON4: 


CONS: 


CON6: 


CON7?: 


CON7A: 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ <15><12>/STDARD WOS XFERRED= / 


<15><12>/DATA TEST ONLY? (Y OR N)/ 


415><12>/MULTI DRIVE MODE?(Y OR N)/ 


¢15><12>/NUMBER OF DRIVES 1 TO 10 OCTAL?/ 


€15><12>/WHICH DRIVE?/ 


<15><12>/0PTIONAL WORD COUNT? (Y OR N)/ 


€15><12>/LENGTH? (1 TO SWROCT)/ 


<15><12>/STARTING HEAD?/ 


(15><12>/D0 YOU WISH TO SELECT THE DISK TEST ADDR®<Y OR N)/ 


SOY SE SD 
RES See BERS 


sae 
fs 


Re @ 
Ke 382 
wn eeu 


Re 
— 
—_—_ 
wn 


020105 
052040 


ofi41e 


RR 


De 
ak g 


044103 
032060 
040S0S 
041527 


29-APR-77 


BO? 


14:49 PAGE 78 


### SUBROUTINES ### 


CONS: 


CON1O: 


CONLI: 


CONIS: 


CONI6: 
CON17: 


CON18: 


EVEN 
CONI8A: 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 
-ASCIZ 


-ASCIT 


-ASCIT 


-ASCIT 


(15><12>/STARTING SECT? 


€15><12>/STARTING CYL?/ 


(15><12>/0TAL DATA PAN NO.7/ 


(15><12>/WRITE?(Y OR N)/ 


(15><12>/WRITE CHECK°(Y OR N)/ 


€15><12>/READ?(Y OR N)/ 


(15><1l2>/CYL “A”? 


<15><12>/CYL "B"? 


¢15><12> “WANT HEAD ALIGN ROUTINE?<Y OR ND 


615><12>/SET SWCH THEN PRESS CONTINUE. / 


«15><12>/SWCH 90-04 


<15>«12>/SWCH 08-10 


HEAD / 


DRIVE’ 


Am? 


ra 
RP11C ot ang *M TEST ewan 27(1006) 29-APR-77 14:49 PAGE 79 


DZRPBE.P11 29-APR-77 14: ### SUBROUTINES ### 
4210 025470 020110 O34060 0304SS 
4211 025476 020060 020075 051104 
4313 Been? eer yt: ae 2 ASCIZ <15><l2>"TOGGLE SW 07 TO SELECT NEW HEAD AND/OR DRIVE’ 
1 . Zz 
313 G5S814 veld? Oe010s Oeaeea 
4215 OeSSe2 030040 Oe0067 047524 
4216 025530 051440 046105 041505 
4217 Sao 020124 O4eS16 020127 
4218 O42S10 O4e101 40440 
4219 OeS5S2 042116 020122 
220 025560 051104 053111 000105 
4221 025566 005015 OS2116 CONI9: .ASCIZ <15><12>/WANT CONTINUOUS HOME SEEKS? / 
eee OeSS74 O41440 047117 
4223 052516 O0S2517 O20le3 
224 025610 047510 O4eS1S 051440 
4225 025616 O4250S 051513 020077 
4228 OeS625 O15 042412 042116 END: sASCIZ = ¢«15><12>/END/ 
4229 OeS63e 000 
4230 025634 - EVEN 
4231 ; 
4232 ; 
4233 ; 
4234 : 
so ;DISK 170 REGISTERS 
4237 025634 000254 VECTOR: 254 ;DISK INTERUPT TRAP LOCATION 
4238 STATUS ; INTERUPT PRIORITY Soren 
4239 O2S640 176714 RPCS: 176714 ;DISK -CONTROL_REGISTE 
4240 OeSb4e 176715 RPCS1: 176715 ; UPPER Mal * OF EONTROL REGISTER 
4241 OeSb44 176716 RPWC: 176716 ;WORD COUNT REGISTER 
4242 OeSb46 176720 RPBA 176720 SCORRENT A ADOR REGISTER 
4243 OeS6S0 176722 RPCA 176722 s CYLINDER ADOR REGISTER 
4244 O256Se 176724 RPDA: 176724 SK_ADDR REGISTER 
4245 O2eS6S4 176725 RPDA1: 176725 ; TRACK ADRESS 
42465 O0eS656 176712 RPER: 176712 ;ERROR REGISTER 
4247 OeS660 176710 RPOS: 176710 :DEVICE STATUS REGISTER 
asus O2Stbe 176734 SUCA: 176734 :SELECTED UNIT CYLINDER ADDR REG 
4250 
uses ;DEDICATED REGISTERS 
4253 OeS664 poe FLAG: Q s INTERN PROGRAM FLAG WORD 
4254 oc SCYL: : OPERA SELECTED CYCINOER 
4255 025670 000000 SHED: 0 ‘OPERATOR SELECTED HE 
4256 02S567e 000000 SSEC: 0 ;OPERATOR SELECTED cECTOR 
4257 025674 000000 WROCT: 0 ; WORKING COUN 
025676 000000 CYLINDER 0 ;WORKING CYLINDER ADDR 
4eS9 025700 000000 MA: 0 ;WORKING DISK ADDR 
4260 702 900000 SWITCH: 0 
4261 0eS704% 000000 PATNU 0 ;DATA PATTERN INDEX 
025706 000000 BUF 0 ;WORKING DATA BUFFER 
025710 000000 SWROCT: Q STANDARD WORD COUNT 
4264 025712 000000 SAVE: Q 
4265 025714 000008 OSKNOR: 0 ;MAXIMUM UNIT NUMBER 


RP1iC RELIABILITY TEST aed 27( 1006) 


DZRPBE.P11 
4 025716 
4267 025720 
4268 025722 
42639 02S 
4270 025726 
427] 
4272 025732 
4273 0257 
4274 025736 
4275 
4276 025742 
4277 025744 
4278 O02S746 
42739 025750 
4280 025752 
4281 025754 
4282 02S 
4283 
4284 
4285 
4°86 025760 
4287 025762 
4288 025770 
4289 025776 
4290 026004 
4291 O2601le2 
4292 026020 
4293 026026 
4294 026027 
4295 026034 
4296 O26042 
4297 026050 
4298 O260S6 
4299 026064 
4300 026072 
4301 026100 
4302 026105 
4303 O2bl11l2 
4304 026120 
4305 026126 
4306 026134 
4307 026142 
4308 026150 
43039 026156 
4310 026164 
4311 026172 
4312 026200 
4313 026203 
4314 O26210 
4315 Oeb216 
4316 O26224 
4317 Oe6e32 
4318 026240 
4319 Oebe4e 
4320 02625! 
4321 Gebese 


29-APR-77 14: 
000000 
000000 
000000 
000000 
000000 
00000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
90c000 
005015 
042115 030455 
OSS104 OS0l22 
020105 O20040 
O4SS23 051040 
040511 044502 
4524 052040 
124 
01S oosole 
OS2111 044103 
OS2e1e0 047511 
00S01iS 053523 
O3e4%61 020076 
0270S6 027056 
052114 047440 
051105 04 
ak 051412 
0304 03706 
027061 Oe 
047517 120 
04 0Silee 
005015 3 
031461 
027056 027056 
O44S10 044502 
051120 047111 
0S2125 123 
015 OS141e 
030474 7062 
027061 027056 
O44116 O41111 
041040 041501 
0S2S517 042116 
051505 124 
O15 OSi14ie 
030474 037061 


020127 
036440 


~ 


29-APR-77 14:49 PAGE 80 
### SUBROUTINES ### 


- EVEN 
HEADER: 
OUTBUF : 


OQOOOO00000 O20000 


0 


ASCII 
“ASCII 


-ASCIT 


-ASCTI 


-ASCIT 


-ASCIT 


-ASCIT 


-ASCIT 


“CONTAINS START OF INPUT BUFFER 
:READ RETRY COUNTER 


;WHEN =0 LOADERS ARE AT TOP OF MEMORY 


(32) 
1i-DZRPB-E DISK RELIABILITY TEST’ 


(15><12><12>"SWITCH OPTIONS’ 


€15><12>"SW «15> =1....HALT ON ERROR’ 
415><12>°SW «14> =1....LOOP ON ERROR’ 


¢15><12>°SW <13> =1.... INHIBIT PRINTOUTS’ 


(15><12e>°SW <le> =1.... INHIBIT BACKROUND TEST’ 


(15><12>°SW «11> =]....RING BELL ON ERROR’ 


~ 


RPLIC RELIABILITY TEST MACY11 27(1006) 29-APR-77 14:49 PAGE 81 
DZRPBE.P11 29-APR-77 14:41 ### SUBROUTINES ### 


047111 

~ Geese Be Loe Bapeae 1 

4 02631 Ao nite o20 185 -ASCII «<15><12>’SW <10> =1....LO0P ON TEST’ 
030474 7060 


020127 -ASCII <15><12>"SW <O9> =1.... INHIBIT DATA COMPARISION’ 


=r 


é 
: 
2ERge 

PRERR 


é 

BR2R 
fore UM 

SRRIB 


020127 -ASCII «15><12>"SW <O8> =1....ENTER CONVERSATION MODE’ 


—Soru 
RES 
aae 


4340 
4341 O2644O 052116 
O26 


g 

yy 

ull ge 
PEt en 

pt 

BR PASS 

gre 


£ 
& 
Ww 
e 
g 
—-— OM 
a 
— 
_— 


3 

R 
Ss eee 

aS 


sASCII <15><1l2>° TEST SELECTED 0 - 2 GIVES ADDRESS CONVERSATION’ 


2 


020040 _G20040 ASCII ¢«15><12>° TEST SELECTED 3 - 7? GIVES DATA CONVERSATION’ 


26 
O47511 116 i es 
020127 ASCII <15><12>°SW «07> =1.... INHIBIT RANDOM SEEKS DURING DATA TEST’ 


INHIBIT USE OF MEMORY MANAGEMENT" 


o- 


4375 Oe6744 005015 053523 036040 eASCII «15><12>°SW «06> =1.... 
4276 Oe67S2e 033060 Oe0076 030475 
4377 0e6760 027056 027056 047111 


os 


RPLIC RELIABILITY TEST MACYI11 27(1006) 29-APR-77 14:49 PAGE 82 
DZRPBE.P11 29-APR-77 14:41 ##% SUBROUTINES ### 


43 4 o124 

1373 Seeres Belees Oooies Ossi? 

4380 O27002 O46440 046505 0S1117 

a: Be Ras Be Buns 

4383 02 005015 053523 036040 ASCII «15)<12>°SW <05>....... COMPARISION ERRORS PRINTOUT’ 

4384 027032 027076 027056 

4385 027040 Oe 027056 047503 

4386 050115 051101 051511 

4387 027054 047511 O20116 051105 

4388 047522 0S1S22 050040 

4389 027070 O44S22 OS2116 052517 

4381 OB707? GIS OS1412 20127 ASCII. <159«12>°SW (OW....... REREAD INFORMATION’ 

4392 027104 030074 037064 027056 

4393 027112 027056 927 105 

4394 027120 051105 O40S0S 020104 

wee Oo7l3s Osel0l OWElL — Tie 

4397 027141 O18 O51412 O20127 ASCIZ (15)<12>"SW <O3> =1....SELECT TEST IN SWCH OC TO 92° 

4398 027146 030074 037063 036440 

4399 027154 027061 O02 051456 

4400 027162 046105 O4150S 02012 

4401 027170 O425e4 OSel2e3 044440 
027176 20116 05 044103 

4403 027204 030040 020060 04752 

4404 12 030040 : 

4405 027216 OOSOIS O2S0l2 O200S2 MES28: .ASCIZ <15)<12><12>/## MAP OF RP DRIVES ##/<15><12> 

4406 027224 040515 020120 043117 

4407 027232 051040 O2012e0 051104 

4408 027240 053111 OS150S 025040 | 

4409 02724 006452 00012 

4410 027252 O20072 OSOl22 C31060 MES29: .ASCIZ /: RPO2/ 

4411 027260 000 

4418 27261 O72 OSIONO 030120 MES30: .ASCIZ /: RPO3/ 

4414 027270 O20072 043117 026506 MES31: .ASCIZ /: OFF-LINE/ 

4415 927276 O44514 042516 000 

4416 027303 — O72 O47040 OS2117 MES22: .ASCIZ /: NOT READY’ 

4417 027310 OS1040 O40S0S 054504 

4418 027316 00 fi zis. 

4419 027317 O15 OOSO12 O43111 MES33: .ASCII <18><12><12/IF THE ORIVE TYPES SEEN BY THE SYSTEM 
027324 042510 42040 

4421 027332 O044S22 04 0520 

4422 027340 050131 051505 051440 

4423 027346 042505 020116 054502 

4424 027354 042510 051440 

4425 27362 051531 O4e524 115 

4426 027367 — O15 O4O412 O4e5e2 ASCII (15><12>/ARE INCORRECT, THEN BIT 13 (SU RPO3I/ 

4427 027374 041516 OSI117 

4428 O42522 052103 O200S4 

4429 027410 O441e4 047105 041040 

4430 O27416 OS2l11 O30440 O20063 

4431 27424 051450 020125 OSOlee 

4432 027432 O31460 i 


os 
4433 027435 O15 O4741e O20106 eASCIT «15>°12>/0F THE RP1IC°S DEVICE STATUS REGISTER: 


a ahs ERELIABILITY JEST. 


027317 
000207 


qanenn: 


epee ere . 


MACY11 27(1006) 
14:41 


151504 


100000 
151464 


920003 
151444 


151434 


900010 
151416 


176070 


176050 


176030 


GO? 
29-APR-77_ 14:49 PAGE 82 
##% SUBROUTINES ### 


ASCII <15><12>/MAY BE FAULTY. 7 
~ASCIZ «15><12>< 12> 


;ROUTINE TO CHECK 4 Stuns STATUS AND REPORT TO 


“PROCESSOR CONSOLE T 
SUBSI2: 1389 RS, PRNTFS sFORCE print mi, MESSAGE 


CLR R NTER ER FOR UN TNO. 
N 
1S: 35e Re PRNTFS fe aa THE ME Mate 
MES11 
MOV RO, TTY 
ISR PC’ PRINTB :FORCE TYPE LOCATION - SUPPRESS ZERO 
MOVE RO’ aRPCSI !CHECK THE UNIT SELCETED BY RO 
BIT #814, IRPDS !IS IT ON-LINE? 
SNE LIF YES THEN PROCEED ON. ELSE 
JSR RS, PRNTFS :REPORT THAT THE SELECTED ORIVE 
MES !IS OFF-LINE. 
BR &$ :GO CHECK THE NEXT DRIVE. 
33: BIT #815, IRPDS :IS THE SELECTED DRIVE READY? 
BNE 4 :IF YES THEN PROCEED ON, ELSE 
ISR RS, PRNTFS ;REPORT THAT THE SELECTED DRIVE IS 
MES32 ;NOT READY! 
BR 6S -GO CHECK THE NEXT DRIVE. 
4g: BIT #813, aRPDS IS THE SELECTED DRIVE An RPO3? 
BNE S$ :IF YES THEN PROCEED LSE 
SR RS, PRNTFS : REPORT THAT THE SED tet BRIVE 
MES29 AN 
R &$ 'G0 CHECK THE NEXT DRIVE. 
cs: ISR RS, PRNTFS ;REPORT THAT THE SELECTED DRIVE 
63: INC RO iu PDATE DRIVE 
art #82,R0 : CHECKED ALL THe “OBY E(S) YET? 
BEQ 1$ RANCH IF NO, EL E P ROCEED ONWARD 
JSR RS. PRNTFS :FORCE PRINT THE MES 
MES32 (IF THE DRIVE TYPES soEEN BY THE SYSTEM: 
SCARE INCORRECT, THEN RPDS BIT 12 MAY SE FAULTY. 
RTS pC “RETURN TC CALLER. 


- 
; 


Rebbbe BE PPOLLALY TEST. MGC YL! 27(1006) fa BPR Pr aENCE foeLe <- USER SYMBOLS 


RCNVX 025726 1373e 13748 13758 1376 127781 3462 3485 3487# 2490 = HSHe 0 H8Ee 2G 
é 
apam =. 920344 3423-34378 =. 3507 
AERC gos44y 1637s 18498 
ADERC1 005462 16 16528 
005454 1641 16518 
ADHGT 005370 1629 1632 = 16348 
Tt 008374 i635 1648 
ADTERI 1633 «1646 = s«165S Ss 16588 
ADTST 1207. «13488 = 2824 
a0Tl 904036 138713 14098 
13 boseee ise? SsbB 
ab 132 024 17158 = 174} 1753 
ASKWC }=©— 003064 146 = «12588 
ATTN, 917074 1455 3211# 32138 2178 3862 38498733875 3880 gee2si8S1 = 3892 
BCKFLG 022514 3003 3738% 3804* 36098 
LL 1250) 9868 
BAD:  O20312 34308 
BLOCK OeS7i6 3094 «3100 +3193 3195 3197 3199% 3199 3201# 345i# 245e# 3461 463% 42te8 
BLSZ 16764 3093-31938 2 
BUF «025706 ISdl*# 16924 1719 17808 19278 2025* 2154* 2219* 2324* 23728 24134 2510e 26914 
2694* 2851# 2930 3715* 4262s 
BUFEXI O16402 3092 «3113 31238 
BUFINX Q16434 3122 031298 
eo == 000001 8408 2090 2964 332 3520 3548 3629 
Bis 8398 le77 1955 2953 3289 3329 37S ; e 
810 = 002000 8308 1224 «1386 «= s«d1434~=s«d1NS7~—Ss«se70s—«d1754H = 202 Sss2s0 | MEH 2788 29% 
B11 = 004000 Beat 321230 13611369 MBB e059 1708 1734 = «2137s 3800s:3048 
B12 = 8298 1336 2078 2517 e531 e540 25589 2699 2707 e74S 3916 
Bis = Bove «= «96H—“‘<‘é‘ wT ©6113 )= TH SPECS a on 
814 = 040000 82h 926 1329 1631 1892 2048 2082 2242 229% 2332 2511 2752 4456 
Bis = S558 «6 979—s—ia1319'—«‘a79s«a«SCsCédGO?)Sssd]Y)~—SssdPASsi739)SsTPHPSTBNS1989 S20 
208 2i22 el42 2337 2860 3916 4461 
Bes 8388 23209 3333 
83 = 900010 8378 #1379 «#1824 = 4474 
24 = 000020 8368 2382 2395 2422 8 244O §862950 3444 
5 = 900040 8358 1284 2405 e425 2450 2633 307% 3090 3502 | | 
B= 900100 gaye 11791192 21682205 ede eG BI? SHE HME 3517 3880 
= 8 
BE = OO0400 8328 1204 2262 3573 : cin Fs > 
28 = 001000 B3ie 2316 2556 2624 2750 2992 3050 3716 3724 3727 3933 
¢ _= 900001 7908 
CHKMOD 003550 1342 13448 
CLRTST 010360 21508 2169 
016374 3101 3i2is 
CMPLE 20220 3404 -3415e = 3434 
EMPLP1 Oe0ebe 3406 34048 
CMPLP2 © O20i64 34078 ©3435 
NTA 025754 12034 DYBSe 2549+ 2610« 2619" 2620 27i4# a77e* 2781e 2782 3224 42818 
SOMPAR 20064 2590 2754 033948 
ZON1 24561 1220 41108 
Sonio | 25236 133941778 


CON11  Oe5e65 12320-41828 


I07 
REAAGE PEL ABILALY ESS. HCY}! 27°1006) PA=BPRE PT oeAdE YF aaPBCE. “Acre symBois 


CONIS 025305 3831 41868 
CONLE 320 3839 «41898 
CONI? 025333 3617-41918 
CONI 400 3902 «41988 
CONI 44 sap 4g058 
c 4y Mele 
q ges lls 
EON ue i 41238 ; 
C dou? 12 1543 3a47— 3929S 41298 
CONS 024731 1260 «41338 
is 024771 1566 41408 
CONS 21 1595 41468 
SON7A  OBS042 1580 ««41S08 
C 025126 1503 «41608 
CON7C 025147 127s wee 
en ee 
eiNa 4 «BBedae Lass 1443 ive 15x 1527# 1526" 15298 15308 208% 2070 2071 207e+ 28% 
3858 «42788 
CYLB 025750 3044" 3876 42798 
EYLIND 25676 1200s l4i7# 1422 1459 1461 14808 14e3* 1543" 1546 1591 1636 1649 16908 
1693 i702 i704 I7i5* 1728 i730 174oe 17S1# 1776* 1925 1942" [965+ 1951+ 
Dpoae «ISDH 6 BeD1e © Be74e | BUGSe «= DbBee ©2799" «= 2B4Ge «2929S 30253075" «= Sille 3112 
51eue 5460 42588 
CYLSK 022516 1213-38158 
Cvi5i 022736 38678 
012330 388 «13 2461  24e4s 
TP OL e466 2502 © 25078 2635 
DATTES 00301 1229 [2478 1253 
PCBLK 016302 31008 3114 
Beccy O1S464 ey) 5758 
Tk O18440 5447 59708 
DELMES 015370 5aey Sabie 
016226 iéil1 1668 2524 2538 2629 30908 
DISPLA= 177570 8198 
a ne i 
rn ee ee ee 
£ Ye 43# * 5d ( <s3 t 
ets $e" Adages Scels 3095 3099" «310g 3104 3108s © 3110e © f123* 31303458 
4 % 
i ann cae 
DSKNOR 25714 119% ieile 1eiee Lave L24Se 13508 195219554 1957# 1989 1360 136280 
4 # 
DSKNOS 016636 1416 «=«s1S14—s«dBSSC«A77S~—s«NESSCS.si«iBHLSCisiG27)=— OI? = 31668 3857 
OSKRD. 012734 25538 2599 2605 
EMTVEC= 000030 8038 
ND Oesbes 2907 4p2Be 
FOPTST O07iz2 19248 198¢ 
ERCOUN 025732 93542 3609" 42728 5 a 
ERRFLG 001240 928. 930s «= «79 «=««982e2593S«s«a7ES «= GHB#2H7# «= 2959# «3018 «= H4Le 
fee gt, 
Bape” Boies a8 


ER ss 
ERRVEC= 000004 8048 41181# 1182% 1193 1194* 23468 2347# 2368 3563e 3564 3623" Jb27# 325+ 


Lar J 
: 


RoAbbe by {POT AIY TESS, rtd Sahara chase’ Rererence ‘taace” t PUSER SYMBOLS 


3972 3973% 3976%  3977% 


eg ee 


EXP§ 020024 1461# 1575* 15798 1580 1582 


Assit egos diact | Asras Gz Bt she, Gaget ERE Adie AE HGR, eat 


EXTOR 016634 3128 8 =§=©3135 31618 
Bie Bee Tt Bi 
TBE 145 bbe 16 e8e4s 
EXTRP 012274 2368 2456 24648 
EXTTRP 012310 2346 2465 24678 
EXTTST Q11502 2346s 
EXTT]. Q12030 4108 
FILDAT 017154 2398 8 3241 
FLAG 025664 1178 119e% 1206% 1l22%* 1230% 1257 1277% 1284 1319% 1323 1329 13368 1343s 


gégi «BBA deri | abe bag 5UER SAL} GERD BERG BESS SA SRER 58 
iC cS SS 2 


42538 
FNCT 915270 2933% 2935% 2936 29388 
FUNCT  015e0e 1556 Tes 1694 1720 1787 1795 1820 1867 1876 1885 1933 195i 1966 
1994 2031 2040 2063 2101 e155 eeee 2235 2275 2289 2328 2373 2387 
2414 2432 2515 eSe9 ess4 2696 2705 718 2856 2867 23278 
GATTN 917044 1454 32088 38 
172 382 39008 
HEADER 025760 1174 1175 1195* 4286s 
HINUM 001700 1054 1064 1075* 10798 2678 3402 3422 
wm Gig, BB, erst Sh 
* g 
ce Fees ee em me me me 
1 7 7 197 
1882 1891 1899 1910 1939 7 1972 1978 2004 2010 2037 eC4s 
2059 2075 2080 2084 2088 2092 2107 2134 2163 2228 ec4] 2255 2281 
2295 2311 2331 2335 2339 2380 2384 2393 2397 2403 2407 2420 2424 
2428 2438 e442 2448 2452 e862 2890 2909 2952 3047 3175 3448 3450 
3799 67 3885 3942 3957 
HLTADS 001244 970# 971% 972 973 9848 
HLTCT$ OO01e42 972% 983% 3289 3326 3329 3333 
007542 20228 2061 
1 007752 20638 2093 
e 010110 20958 2108 
RS 023322 3828 39278 961 
ICNT 001000 $168 1198* 2810% 2813 
INBUF 025722 1719 1728 1731 3549# 3550 4268s 
INCSEC 016252 30958 102 
UR Q1621e 309 31038 
INDRVE 014472 e805 2808s 
INIT 016710 1172 1687 1774 ec04 e6S9 31818 Y = 
INPUT$ 002014 ies 1083 11068 1117 1158 l22e 1229 lebe lé8e2 i327 1334 1341 3813 


INTCK  O004S02 1414 14928 


‘n? 


RPLIC ts te TEST al 27(1006) 29-APR-77 14:49 PAGE 88 
DZRPBE . P 29-APR-77 14: CROSS REFERENCE TABLE -- USER SYMBOLS 
INTEXT 015626 2946 2397 29998 
TF Bvee 423% 45) 492x 14948 533 * ANA 3006* 3438 
NTO” reeeS bog soe ogee 23968# 333 2973% 2975% 2983 2988 30038 
tte 015664 eae 2976# 2980 2982% Soa3s Sean. 2988* 2991 30108 
= 8 
KIPARI= 172346 pues iiess | Baea 
KIPAR2= 172344 8478 2354% 2367% 24108 3337 3565 3569% 3571 3578 3674* 3695# 3704 
3721 
KIPAR3S= 172346 8488 1 3677% 
KIPARY= 172350 8498 3345 3680# 
KIPARS= 172352 8508 3349 3683# 
KIPAR6= 172354 8Sie 3353 bf 
KIPAR7= 172356 8Se8 1186% 2351# 
KIPORO= 172300 8538 1187%  2355% 
KIPDR1= 172302 8S48 1188% 2356% 
KIPDRe= 172304 85Se 2357% 3566% 3574 
KIPDR3= 172306 8568 3633% 
KIPDRY= 172310 8578 3636% 
KIPDRS= 172312 8588  3639% 
Reo: ee cot iiss ome 
L320 001002 9178 932 1475® 1538% 1609% 1666% 1713% =I1741% =$(I836% 1913% 1982% 2012 
2093 2108% 2144% 2169% e22S6* e22e8e% 2298 e23lee 2340 e2408*# 24S4#  eSec# 
2617 2703% 2712e% 2779% 2863 3946% 3959% 
LC 602 205 12098 
012520 25138 2522 
LORFLG S756 17 3620 3979% 42828 
LOKOUT 007426 19908 20le 
LONUM 001702 1053 1062 1074* 10808 #2677 3401 3418 
LONUN 017354 3251 3253 3262 3274 32838 
LOSAV 17360 32e51* 32858 3401 
MAXREF 021074 3524 35368 
MAXIE. 052000 scilx Seige 36698 3729 
IZ 021746 2207 2217 2250 2846 2895 3542 3621 365i8 3970 
MEMTST 010554 1394 2181 21948 
010646 22078 2263 
S 023576 2812 39858 
MES1A 15 3298 398848 
MES1O 024070 1803 1828 40328 
MES11 024107 1372 40368 4 
MES12 024123 1657 40408 
MES13 024127 2956 3499 4O04es 
MES14 024143 2979 3056 3478 4O4Ss 
MESIS Q24153 2985 3484 40498 
MESI6 024164 2990 3489 40528 
MES17 175 3332 40SS8 
MES18 O24210 3357 40S88 
MES19 9 Qe42e4 3361 40618 
023626 3302 39918 
A 023637 3294 39948 
MESSCB 023650 3306 39968 
MES2C 61 3310 39988 
MES2D 023672 3314 40008 


3710 


2061# 
2536# 


07 
-APR-77_ 14:49 P 
Boab BY Tey Rete TEeyTT er eee Eee REFERENCE TABLE “<- USER SYMBOLS 
MES21 024261 3323 «40668 
MES22 024301 3645 40698 


mee Oe 


MES31 027270 44148 4459 
7 44168 4464 
MES33 027317 44198 4477 
a 
7 1411 1510 1683 1770 2196 2486 e6ss 40158 
MES? 024001 2613 2775 40188 
$8 024030 40248 
MESS 024043 3493 40278 
x 021750 1S13# 1686% 1773% 22038 23718 2490%  2658% 2935 36528 3709+ 
MEXIT  Q14S46 1368 2818 28208 
IN 021420 35918 
IZ 021752 3589* 3609 3615 36538 
NNSIZE 021230 3543 35608 
mer eB EE oer 
MS of 364 975 898 
NeTR 13334 es42 2631 26338 
MULCHK O14416 2638 2789 27988 
N = 000010 7938 
*  Oeazee at 5255" i) 2700 2709 2747 37388 
a nn 
NPR1 O2eS1e2 3740 3807 % 
002334 1115# lleg® 1129% 1135 11408 1148% 11648 1236 1e38* 1239 le4i 1252 Lec5# 
1eS6* 1257 1269 1273 1275 1290 1292 1298 1300 1306 1308 1315 1317 
1320 3834 3836 3842 3844 3850 38S3% 3854* 3855 3932 3934 
021312 3563 35718 
ge ei 
OPDAe 003316 13018 1307 
OPDSEL 016170 2513 2528 e551 30768 
OPPAT 003352 1283 13108 1316 
003470 1328 13308 
OPWCK 003520 1335 13378 
OPWRT 003432 1318 13238 81345 
OUTBUF 02S76e 1541 1544 1619 1634 1692 1693 1780 1783% 1804 1810# 1816# 1861 1895 
1898 1901 1927 1929 1947% 1974 20e5 2026 2052 2058 2096 2154 2208 
eel3 e214 2219 2231 2245 $10 e566 2670 2691 e7ee 2844 29S! 2892 
3231 3544 3549 3951 42878 
PACKS 11138 §=61235 1251 1268 1289 1305 1314 3833 3841 3849 3931 
liee 1124 130 1136 1141 11558 
PARINC 022072 eects e627 36328 
PARINT Oe200e ecbY 2503 4 2626 62 36738 


es45 6 26 
PARMAX 021756 35784  3579% 3580 3587* 3591 3597 36558 3722 


RP1I1C ot tee Lo now 27( 1006) 
DZRPBE . P 29 


BAR TAG 
PASEL 


PSW 

RADT1 
RADTe 
RADT3 


Bei 765 
025720 
OO&ES4 
025704 


017170 


300 
000340 
001302 


177776 
004062 
OO4S4E 
005630 


MO? 


29-APR-77 14:49 


PAGE 90 
CROSS REFERENCE TABLE -- USER SYMBOLS 


es4e8 2628 37048 


2457 2666% 2784% 42678 


3616* 3630 36548 3673 3693 3718 


2913 

2863 

e920 

1le7# 112e8% 1129 1132 =1133% 1194 1135 1137# 1139% 
1146* 1147% 1148 1157* 1158% 1160% 11638 

1218 1378 3648 4454 

1805 1830 2904 3296 3300 3304 3308 3312 3316 
1Sle2 1685 1772 2198 2488 615 2657 2777 2814 
3058 3325 3338 3342 3346 350 3354 80 86 
104 1092 1101 4 1410 1509 1656 6 1769 
eble 2654 774 2811 2865 2901 2906 e9$5 2978 
3293 3297 3301 5 3309 3313 3322 3331 3335 


2497 2667 
2840 3182 3184 3186 3187 3$23 3525 

9968 §=61173 1215 1219 leeS le32 1248 1289 1265 
1311 1324 1331 1338 1371 3644 3816 3823 3830 
4448 445] 4458 4463 4468 4471 4476 

2497# 667% 3187%  3523% 


1279 
3838 


132s 2491 2639% 2640 2643 2665% 27878 3229 3403 3405S 3424 


1286 
3846 


- 


OF 


Boab by fOr ALY PEST, raat mes chdse Rererence Taelt <- USER SYMBOLS 


RPCS! OeS64e 
RPOA 


ER 025656 
RPWC eS644 
RRANEX 013456 

= 000006 

RWRCK 006274 
02152 

005412 


SANHT 
SAVE 025712 


2674 
10518 


& 
24918 
* 


0 
16198 


3236 


32518 
Schie 


2646 


3426 
3548+ 


2606 
2957 


1250 
3832 


S78# 
40e# 


3440 
4eb4s 


271S# 


3566 


3531% 


27578 


12% 


731# 
3668 


2758 


1304 


89g# 
440s 


3636 


3S41# 


2760 


1313 


1908# 


2768 


1326 


1974s 


35444 


RPLIC 9 i tee MACY11 27(1006) -APR-77 14:49 PAGE 92 
ll 29-APR-77 14:41 CROSS REFERENCE TABLE -- USER SYMBOLS 


DZRPBE . P 
SAVES 001036 9368 1052 1114 
SCOPE = 104000 8688 1476 1539 1610 1667 1714 1742 1837 1314 1983 2013 2062 2094 
109 gi 48 5478 2257 2283 2299 2313 2341 2409 24ss 2523 2537 2618 
704 13 2864 3947 3960 
SCOPES 001004 Ses 3183 
SCYL 025666 12928 3079 42eS4e 
SEABUF 004710 15448 =: 161 
SEEK O1S666 2514 2s 2695 2716 30158 
SEEK1 025752 11978 30208 3021*% 3022 3024 3040 3057 42808 
SEEND OQOI16164 3016 30698 
SEKDON O16166 3038 30708 
SHED 025670 l 308i 42558 
SKTST 010172 21iSe 2144 
SPEC 024532 1216 410S8 
SRO = 177572 8448 1183 1190% 2168% e2322% 2348 e360# 466% 3519 35628 36i9*# 36294 
C 025672 1308# 42568 
START 002336 914 11708 
STATUS 025636 141S# 2500% 3037 3039% 3067# 3186% 42388 
STKPTR= O00S00 es 1171 2467 2838 2919 3554 
IZ 027530 1177 44488 
A OeSb6e 14S9 1462 2886 2889 3315 4O488 
SWITCH 025702 3400% 3407 3410% MBMlee 3415S 3419% 421% 42608 
= 177570 8188 926 989 3962 966 976 992 1010 1013 1179 1204 1209 13793 


1487 1670 1754 2180 2460 2494# 2517 2531 eSS6 ess8 2644 2638 


2707 2745S 2750 2788 2950 3015 3444 3502 3307 3918 y 
SWROCT 025710 1217 1271 127S* 1276 esge 3127 3553% 3610% 3614# 361S* 3731 42638 
SWSUR 016352 3107 31108 
= 900020 73548 
TBITVE= 000014 8068 
TESTNO 025730 1409 1412 1S08* 1511 1681* 1684 1768* 1771 2194*# 2197 2494*# 2497 26534 
2656 3317 3319 42718 
TIMO 024475 3801 40978 
TKB = 177562 8158 09S 
TKS = 177560 8148 
TKSR 003176 1263 12788 
TPB = 177566 8178 1005* 1095s 
TPS = 177564 Blbe 1006 1096 
TRAPVE= 8108 
TSTT 004016 1385 i 
TTY 001562 973% 1027% 1029 1031% 10508 12178 #13778 i4i2e ISll# 1684 I771*# 1804# 19294 
2197 24878 e614 e2656% 2776 2813% 2903% 2957 2980 986# 29918 3057s 329S# 
3299 3303# 3307# 3311" 3315* 3324%* 33378 3341# 334S* 3349* 33532 23258% 2362s 
; 3479% 348S# 3490% 3496 3500 3647# 444S3% 
“6 = foie oe 1187 1188 1189 2355 S? 2358 3566 3633 3636 3639 3642 
VECTOR 1414# 2499# 3038* 3068* 318S5* 42378 
WOCON 003106 leb4s8 1270 1274 
WOERR 920346 3427 34388 
WORK 925734 1271 1272# 1273 1570% 15838 1592 2171#® 21738 2174* 2175# 21768 2177 2569# 
2677% 2679% 2680 e80e# 2803% 2804 2877 2879# 2880# e88l# 28828 2893 
# * 3097 3104+# 31th 3106 3130# 3132# 3136 3138% 31408 314! 3143% 
314S# 3166% 3167# 3168 1708 3171# 3172 3194" 3195 3197 31998 32002 320 
3230 3240# 3244# 3e47# 327b# 32e80* 34See 3453* 3454# 34S8* 3494 3908# 3903+ 
abies - 39108 3911 39le# 3913% 3914*# 3915 42738 j 
WORK] O2573¢ 2c678# e683 2684 ec686* 2687 e689* 2690 3094# 3ig4# 34SSe 3464 S4SE2% 34S 
3469 S471# 3473% 3482 3487 42748 


CO8 


RP11C RELIABILITY TEST vow 27(1006) 29-APR-77 14:49 PAGE 93 
DZRPBE.P11 


29-APR-77 CROSS REFERENCE TABLE -- USER SYMBOLS 
WORK2 025740 wg is dies 1480 1485 1716# 1746 1749# 1752 3129# 3133# 3150 3395 # 
WORKS 025742 13435 1477 1481% 1484% 17178 =1745* = 1751 3131# 3146 3148# 3460# 34748 3479 
WORKY 025744 1718% 1743 1747% 17508 42778 
WRCK 006242 1393 1755 17688 
WRCYL OOS664 16938 1705 1713 
WROCMP 020274 3411 3414 3420 3423 34268 3432 3436 3439 
WROCT 025674 1276 1540® i6i3# 1691% 17818 1875% 1884* 1926# 1941# 1963# 1993#  2030# 21004 


e1S3% eele# 2230 2eb8 2e8s 2301 e3e3# 2370% e498# 2564 e668* 2669 eeso# 
2931 31e7# 3150# 315e# 3153# 3154# 3155* 3156*# 3157*# 3158# 3159% 3154 30 
3335 3452 347% 355e# 3553 3594* 3605*  3609% 3610 3611 3729 §=63731% = 42578 


WRICK  Q12574 2Sle % 
G 13524 26688 2786 
XINCSE O1646e2 31338 139 3144 3149 
XINCSU O165le 3137 31408 
Zz = 000004 7928 
= 027670 Slee 9138 9158 9898 997 1007 1017 1034 1037 1042 10498 1086 1097 
11068 1223 1472 06 1616 1618 1627 1663 1697 1710 1723 738 1730 
798 823 1870 1879 1888 1936 1954 i969 2001 2034 2043 2104 élz) 
2127 2131 2141 2179 2225 2238 2278 2292 2328 2377 2390 2417 2435 
92 26 2604 2764 2766 egss 2859 2870 2994 3008 3002 3061 
063 66 3077 3091 3$ee 42048 42308 
P CiS3€ 1016 1018% 1019% i021 1025 1035% 1039# 1041 1046 10498 
PRE 0014Se 1923 1026 10318 
PRL 001424 1de4s 1040 


-PTIT o014l2 10208 


RP1IC RELIABILITY TEST MACY11 27(1006) 
29-APR-77 14:41 


DZRPBE.P11 

BUSTST a7ate 
DUMP anaes 
DUMPF 9028 
Boror So4y 
K 9108 
PRINT 8998 

2611 

3301 

3488 
PRINTF 3008 

1324 
RAND 9078 

READ 308 

e 3818 
REST 8968 
SAVE esse 
SOUMP 90S8 

3057 
SDUMPF 3038 
. DUMP 301s 
. ERROR 8978 
. PACK 9098 
. PRINT 898s 
. RAND 3068 
- READ 9078 
.REST e9ss 
. SAVE 83s 
SCOPE 89ss 
. ABS. 027670 


ERRORS DETECTED: 


3744 
rd 

$33 1804 
1187 1188 
12 1251 
98 1045 
2654 2773 
3305 3309 
3492-3498 
94 1173 
1330 =: 1337 
2675 (3417 
1221 1227 
3825 3832 
107% = 115] 
1051 1113 
4121511 
33204 3337 
1217-1377 
1009 

956 
1110 

990 
1051 
1081 

945 

934 

918 

ooo 


0 
DEFAULT GLOBALS GENERATED: 0 


DSKZ: OZRPBE. 5-e. ,OSK2: OZRPEBE . SEG/CRF /SOL “NL: TOC=DSKM: OZRPSE.P11 


RUN-TIME: 
RUN-TIME RATIO: iee/ 1S=10. 4 


CORE USED: 


1SK 


(29 PAGES) 


29-APR-77 14:49 
3753 3756 3759 
2903 3295 3299 
235 e35 2357 
1e8 129 1308 
1101 1364 1410 
2865 2901 2905 
3321 3331 3338 
1219 1225 1231 
3643 3816 3822 
1250 1261 1267 
3848 3930 

1771 2197 2487 
3345 3349 3353 


3762 


PAGE 95 
CROSS REFERENCE TABLE -- MACRO NAMES 


3781 


3784 


